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500006 


500007 


500010 
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RUNNING TIME 
ASCII TIME OF DAY 
ASCII DATE... 
PAUSE 

MEMORY REQUEST 
SQUEEZE. 
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PURE 


JOB RUNNING TIME 


LONG PAUSE 
ELAPSED TIME CLOCK 


OPEN SCRATCH 


OPEN FILE 


CATALOG 
UNCATALOG 


CLOSE... 


OVERLAY 
TRUNCATE 
SCRATCH ... 
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REQUEST STATUS 


EXECUTE 
RUN 


PASS 
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PROVIDE DEVICE ADDRESSES 


COPY CATALOG AND OPEN FILES 


DRIVE 
READ 
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RESET STATUS 
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2900 EJECT 
2910 
2920 
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500201 2960 OPE2 BOOL 500201 OPEN FILE» PAUSE 


500204 2980 UNC2 BOOL 500204 UNCATALOGs PAUSE 
500205 2990 CLO2 BOOL 500205 CLOSEs PAUSE 
500206 3000 OVY2 BOOL 500206  . .... .. OVERLAY 4..PAUSE. . 
900207 3010 TRU2 BOOL 500207 TRUNCATEs PAUSE 
500210 3020 SCR2 BOOL 500210 SCRATCHs PAUSE 


500212 3040 ERA2 BOOL 500212 ERASE» PAUSE 

500213 3050 Se h2 BOOL 500213 SET POINTER, PAUSE 
500214 3060 RCA2 BOOL 200214 |... READ CATALOG, PAUSE |. 
500215 3070 REQ2 BOOL 500215 REQUEST STATUS» PAUSE 
500216 3080 REP2 BOOL 500216 REPLACE» PAUSE 

500217 3090 — EXE2 BOOL SOD SNE cece sensi SRECUTE 2 PAUSE 

500220 3100 RUN2 BOOL 500220 RUN» PAUSE 

500221 3110 CON2 BOOL 5002271 CONTINUE» PAUSE 

s00e22 3120 PAS2 BOOL S002@2@2  . PASSs PAUSE... 
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300224 3140 CMX2 BOOL 5900224 CHANGE CATALOG MAXs PAUSE 


500227 3160 cc0e BOOL 500227 COPY CATALOG AND OPEN FILES» PAUSE 
500231 3170 COP2 BOOL 500231 COPYs PAUSE 


500233 3190 REA2 BOOL 500233 READs PAUSE 
500234 3200 WRI2 BOOL 500234 WRITE» PAUSE 


500236 3220 TOPE2 BOOL 5900236 TALLY OPENs PAUSE 
500237 3230 TERA2 BOOL 500237 TALLY ERASE» PAUSE 
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500226 3150 PDA2 BOOL 200226 PROVIDE DEVICE ADDRESSES» AND. PAUSE ee es 
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STATUS RETURNS ON MME 


3300 HEAD Ss 
000000 3310 SOK BOOL 000 OPERATION SUCCESSFUL 
000020 3320 RES BOOL O20... 0... ...... STATUS WAS RESET... 
000040 3330 QUO BOOL 040 QUOTAS EXCEEDED 
000060 3340 STO BOOL 060 SYSTEM OUT OF STORAGE 


000120 3360 BSY BOOL 120 FILE BUSY 

000140 3370 ERA BOOL 140 A REGISTER PARAMETER ERROR 
000160 3380 ERQ BOOL 160. 2 Q@ REGISTER PARAMETER ERROR. 
000200 3390 ERO BOOL 200 PARAMETER XO ERROR 

000220 3400 ER 1 BOOL 220 PARAMETER X1 ERROR 


000260 3420 ER3 BOOL 260 PARAMETER X3 ERROR 
000300 3430 ER4 BOOL 300 PARAMETER X4& ERROR 
000320 3440 ERS BOOL 320 PARAMETER X5 ERROR | 
000360 3450 ER? BOOL 360 PARAMETER X7 ERROR 
000400 3460 RER BOOL 400 RECOVERABLE ERROR 
000420 3470 UER BOOL 420 =, ss UNRECOVERABLE ERROR 


3510 to COPY 


000001 3530 See BOOL _ 
000002 3540 DFE BOOL 
000003 3550 INA BOOL 
000004 3560 SPT BOOL 
(900005 3570 © oPT BOOL 
000006 3580 CFB BOOL 
000007 3590 MNA BOOL 


SOURCE FILE EXHAUSTED. |. 
DESTINATION FILE EXHAUSTED 
OPERATION INAPPROPRIATE 


DESTINATION POINTER OUT OF BOUNDS 
COMFILE BUSY | | 
MASTER END OF COMM FILE NOT ACCEPTING SPECIALS OO 
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000001 3630 PRL BOOL ‘1 
000002 3640 LOK BOOL 2 LOCKOUT 
000003 3650 NOF . BOOL  . 3. ERE NOT FOUND 
000004 3660 PRV BOOL 4 PROTECTION VIOLATION 
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000005 3670 FAL BOOL FAIL (NOT ENOUGH PERMISSIONS) 
000006 3680 BIN © BOOL 6 BAD TREE NAME 
000007 3690 CLE BOOL 7 CLIMB ERROR 

000010 3700 OFL BOOL 10 OFF@®LINE FILE COPEN ONLY) 
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000012 3720 FOR BOOL 12 FORMAT ERROR (TALLY OPERATIONS ONLY) 
3740 * CCE 


000001 3760 FNC . BOOL 1 FILE NOT CATALOGED 
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000002 
000003 
000005 


000001 
000002 
000005 
000006 


000001 
000003 
000004 
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000010 
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000014 
000015 


000001 
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DUPLICATE FILENAME 


VERE G At TRAP. 2 BEE Seco ee ee ee 
ILLEGAL USAGEsDATES/PREF-OR TYPE 


TIMER RUNOUT 


RUNLIST ERROR 
SWAP ERROR 
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ALREADY CATALOGED 
PREFERENCE TOO LOW 


BAD DCW 
COMMAND INAPPROPRIATE 


COPY CATALOG AND OPEN FILES 


BOOL 
BOOL 


OTHERS 


BOOL | 
BOOL 
BOOL 
BOOL. 
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JOB SWAPPED BEFORE CCO COMPLETE 


OVERLAY *@"REJECTED CAUSE MME‘*S OUTSTANDING 
RESET STATUS**RESET ALREADY IN PROGRESS 


ALTER ACCESSES@=FILE CLOSED SINCE NO MORE ACCESSES. 


PASS*#MESSAGE NOT READ 
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000012 
000024 


100000 
110000 


140000. 


150000 


200000 © 


210000 
240000 
250000 
270000 
300000 
310000 


320000 


330000 
340000 
350000 
360000 
370000 
371000 


410000 
420001 
430001 
610000 
620001 
630001 
640001 
650001 
660001 
670001 


400000 
600000 
700000 


4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
44090 
4410 
4420 
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4440 
4450 
4460 
4470 
4480 
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4500 
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4520 
4530 
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DEVICE DRIVES 


TO THE DEVICE... 
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ENABLE ERROR RECOVERY 

SUPPRESS ERROR RECOVERY 


SET BINARY MODE (CARDS OR TAPE). sh, diteieles, alae: 
SET DECIMAL MODE (PUN» TAP) OR MIXED MODE. “CRDR) 


SET HIGH DENSITY MODE FOR TAPE 


SET FILE PROTECT . 
FORWARD SPACE TAPE ONE RECORD 


BACKWARD SPACE TAPE ONE RECORD 


FORWARD SPACE TAPE ONE FILE 
BACKSPACE TAPE ONE FILE 


ERASE TAPE OR SOUND CONSOLE TYPEWRITER ALARM... 
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WRITE END “OF “FILE MARK ON TAPE 

WRITE ONE CHAR XX (30°35) RECORD ON TAPE 
REWIND TAPE 

REWIND AND UNLOAD TAPE 
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FORMAT TRACK (€43xX001 = X ==> TRACK INDICATOR) 
MULTI RECORD WRITE (€6100XX) 


WRITE VFC 
WRITE CONTROL STORE (MPC) 
LOAD MAIN MEMORY (MPC). 
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BOOL 
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DO NOT TRAP DESTINATION. ON COPY. 
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- 900000 


000001 


000002 


000003 
000004 
000005 
000006 
000007 
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000011 
000012 
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000074 
000015 
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000017 
000020 


000021 
000022 


000023 
000024 
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000026 
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000030 
000031 
000032 
000033 
000034 
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000036 
000037 
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000052 
000053 


000060 


000061 


000062 
000063 


000064. 
000065 


003372 7100 00 
000000 000000 
000000000000 
000656 7170 00 
090000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
001762 7100 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
001230 7100 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000000000000 
000656 7170 00 
000040 
000040 
000050 
000301071002 
000000000000 
000000000000 
000054 
000056 
000000000000 
000900000000 
000000000000 
000000000001 
000000000002 
000000000003 
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5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
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TROFLT 


ABORTV 


SPIC 
SPAN 


TRMRG 
ERIC 


TRMST 
RUNDT 
RUNTM 
RUNFA 
CORFR 
MFDFR 
TTYFR 
CATFR 
CURFR 
PATFV 
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4 = MME FAULT 


12 = COMMAND FAULT 
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20 * SPECIAL INTERRUPT 
SPECIAL INTERRUPT VECTOR (CMD FET) 
22 ™ PARITY FAULT 


26 = OP NOT COMPLETE FAULT 


32 = OVERFLOW FAULT | 
34 = DIVIDE CHECK FAULT 
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30 = STARTUP FAULT. 


IC/IR AT FAULT OR NON@TERMINAL ERROR 


DATE OF UPDATE 


TERMINATION STATUS : 
I ect hea a ce he renal aces Ma Sacenh Eile, oh 


TIME OF RUN 
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FAULT TYPE CLOCATION IN FAULT VECTOR) 
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FRN OF THE MASTER FILE DIRECTORY 
FRN OF TELETYPE PASSED 
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FRN OF MY CURRENT FILE WHEN RUN BY SIMON 
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BY SIMON 


RUN BY SIMON 


10 = JOB TIME TIMER RUNOUT FAULT 
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TSSTW1 


TSSTW2 


2.8 See 


TSLINK 
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(035) 


(O35). 


(0<35) 


5220 
fs 5230 THE FORMAT OF A TRAP BLOCK FOR USE WITH TRAPPING EXECUTIVE 
° 5240 COMMANDS. IS AS FOLLOWS: 0 0 000 ww. 
5250 
5260 WORD NAME 
5270 so. eee ~ 


TSSTW1 IS STATUS WORD 1 AND IS SET UP BY THE EXECUTIVE 
TSSTW2 IS STATUS WORD 2 AND IS SET UP BY THE EXECUTIVE 
TSRET: 18. RHE RETURN. WORD AND 21S. SEI UP* BY 5 BE 1B MGC Te citreus in eS arated i tpaeg Pinatas aatiapatn ae emir Me 8 
TSLINK IS THE LOCATION TO WHICH THE EXECUTIVE WILL TRANSFER 
UPON TRAPPING THE CORRESPONDING OPERATION 
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5410 TRAP BLOCK NAME DEFINITIONS 
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UNIPROGRAMMING TRAP BLOCK DEFINITION 


5460 HEAD 
000000 5470 STW1 EQU 
000001 5480 STW2 EQU . 
000002 5490 RET EQU 
000003 5500 LINK EQU 
brites . 000116 5510 TRAP BSS 
000721 777777 6300 04 5520 RET 
5530 HEAD 
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0 STATUS WORD ONE 
1. 
2 
3 
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000000 5540 LINK ON 0, eens acct Fa ect Ne Rass ce 
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se CES OD ENO cate epics ate ec Rare aces eect en ee tae ee a aeRNiAe apts 
RETURN FROM TRAP 
ROUTINE ADDRESS CRET) 
Fp ities x Slcanonine teedabglte wink stage td etek pce Me cn CUR AR RB I TOI ae leat eect cacao aa Sen a eared ec andy td 
ET*LINKsIC © KISS 


RAR BIO RNA GG CO tthe Be eer Se aaa aa a ee eeainreencey apne aE 
1ST STATUS WORD (0) 

2ND STATUS WORD (1) 

A Ped cote RAR Fe RN WOR OD id wicca eae onlncc ccleaner ete alget anata ne ta ies Sa a clalewtacrm ramen Seats iets 
TRAP PROCESSING ROUTINE 

INFOQ PTR . : 
AUR TOO BUEEE ROI EO ED ice he ect ee See aa a aaa eee ae lar ohio sine 
PTR TO SECTOR NUMBER 


000001 5550 STw1 EQU 
000002 5560 STW EQU 
000003 5570 RET BD ny ott ee ae 
000004 5580 EXEC EQu 
000005 5590 INFO EQU 
000006 5600 BUF. Py 2. | Cone © Eee ier aetenee eee oe ante eee 
000007 5610 BLOCK EQU 
x 

/ 5630 HEAD bs 
000010 5640 TASKLN EQU 8 
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5660 EN Oe te. 2G Cotatarseeeed Ou te 2 
LINKAGE WORD (FOR TASK) 


777773 = =5670 LINK EQU m5 
777774 5680 STW EQU =4 
777775 = =5690 STW EQU | #3. 
777776 = = 5700 RET EQu bat 
777777 = =5710 EXEC EQU =] 
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000000 5720 INFO EQU 
000001 5730 BUF EQU 
000002 5740 BLOCK EQU 
5750 HEAD 
000000 5760 LINK EQU 
000001 5770 DEV EQU 
000001 5780 FRN EQU 
000003 5790 EXEC EQU 
000004 5800 MATE EQU 
000005 5810 ERRS EQU 
3820 HEAD 
5830 * 
000006 5840 DEVLNG EQU 6 LENGTH OF DEVICE BLOCK 
5850 HEAD 


(TASK INFORMATION PTR) 

PTR TO SECTOR NUMBER 

DEVICE BLOCK 
STANDARD QUEUE PTR. 
ASSIGNED FRN (FOR OPEN&CLOSE) 


PTR FOR READ/WRITE MATE DEVICE 
NUMBER OF CONSECUTIVE ERRORS 
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5860 TTLS DEFINITIONS*#PUSH DOWN LIST (03/24/74) 
5870 7 
5880 
5890 
5900 - ee er en ee 
5910 AVE MACRO REGISTERS 
5920 IFE t#1%,8",2 IF NO REGISTERS SPECIFIED, SAVE T 
5930 STX Te SPDL AED SAVE TL. ati ear ce ft ce sata accent aaa a tele ee nese Soop 
5940 DCARD 3 AND THEN EXIT 
5950 IDRP #1 ELSE SAVE ALL OF THE REGISTERS SPECIFIED 
5960 STH1 $PDL-ID.  ...... SAVE REG #1. 2 amlacediatcamaats tenes 
5970 IDRP AND LOOP BACK FOR MORE 
5980 ENDM SAVE 
5990 * 
6000 * | 
6010 * RETURN =" RETURN FROM SUBROUTINE 

* 

R 


fF tater omens mr tninmingine ph eioieety! eee tietennmmemeie hs Ganges senna aNS iy SMU e LM ARRM ELMO Re NN SORTING INE AM tn at Le Peewee ey 


SAVE = SAVE REGISTER T OR REGISTER SPECIFIED (REG 1 = *X1*%s REG A = *A*). 
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6020 Oe 
6030 ETURN MACRO TRANSFER 
6040 IFE "HT, "42 IF NO TRANSFER SPECIFIED, DO A TRA THRU THE PDL 
6050 TRA $POL/-DIC..  ... TRANSFER VIA PDL 
6060 DCARD 1 AND EXIT 
6070 #1 SPDLveDIC ELSE DO APPROPRIATE TRANSFER AS USER REQUESTS 
6080 ENDM RETURN 
6090 
6100 
6110 
6120 : 
6130 oP MACRO REGISTERS a 
6140 IFE | '#1%,"",2 IF NO REGISTER SPECIFIED, LOAD T FROM TOP.OF PDL. 
6150 LDX Te SPDLADI LOAD T FROM TOP OF PDL 
6160 DCARD 3 AND EXIT 
6170 IDRP AL ELSE LOAD ALL OF. THE. REGISTERS. SPECIFIED 7 EROM. THE PDL... 
6180 LD#1 $PDL/DI LOAD A REGISTER 
6190 IDRP AND LOOP BACK FOR MORE 
6200 Oy =o: eR © | cee ee ne ee eee nn een 
6210 * 
6220 * LIST ELEMENT DEFINITIONS 
6230 em epee nla aan eat Ne sn eager te ln spr tt ftp lo St Rel tA Da ee 
777777 ©6240 LINK EQU -4 LINK TO PREVIOUS BLOCK 
777777 «©6250 LEN EQU ~4 . LENGTH OF BLOCK 
BO co is ansate Shanti Rats hac bia we eh as 
6270 * PUSH DOWN LIST 
- 6280 s : 
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e 000123 6300 BSS 50 


POP == LOAD VALUES FROM THE PDL oO. 


os, eee S 
Ut t + F 


& S: > bs as 9 
cs we BS a gs = tS 


SL RRA grimy pace ree vy ameete E SE ao 
KR bsthe eh Bos iddeddu ! / blues i ia ; 
fg 
y f 
foe BE oF oo nt 3 a Gog & ae =: = te ay ; s o : y ag : 2 : he : oe i z MG ce ee : a “ rae : os ; ee ie ‘ : Ee rs < 
- . 2 fa : é Z : EB Fy 
: i ; ‘ i 3 : F 
se 8 a 
Pemctas 
€ 1 


cae ae sho ge tt ws - Rea aS : ee ae nt eS ae ot He = Ve : i ie na By ws : a oe gs > Ee i 2 - 3 i . = 2 a r +E: re ze Be + SS 
‘4 mE oe es. oe pal is - F if Pa te a “ " > 2 : So . es ae Ea us ' é te fo 23 : : fe Z re & . ’ ret z 
ie . f po : es 2 : i : : : ‘ : 5 j 2 : $ i 
: : : : 3 ‘ : i ; : 3 ; 2 
: : : 3 i 2 : 3 2 : a : 


Ea ag age Rea ae acai me 
ba abe ae ab es Se Ss 


2 pars ‘Sie rae) a 


“PACKOPY 


000205 


000206 


000207 


000210 
000211 


03/17/82 


000002 
000000 


000001 
500005 
000205 


2340 16 
6010 10 
000207 


2250 03. 


0010 O00 
7100 O00 


1Os3023-2 


6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 


6470 


64 80 
6490 
6500 
6510 
6520 


6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 


~ 6750 


6760 
6770 
6780 
6790 
6800 


AUSE 


= + € + 


AlT 


ISSUE 


* 
* 
* 
ARGDEF 


#3 


eee i ee ae 


Serre a 


ROUTINES@*GENERAL 10 AND SUPPORTING MACROS. (06/307 7g eee es wna sia meneame 


TTLS ROUTINES **GENERAL I0 AND SUPPORTING MACROS (06/30/74) 


PAUSE @ WAIT FOR ACTIVITY TO CEASE 
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MACRO... NUMBER 0 FUN ERR GOT Sse 5x0. e wal cat eM ca lle hipaa yea aaaed le ce al a aes 
LDX Se#1.DU PAUSE FOR #1 

MME MSPAU 
ENDM PAUSE. 
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MACRO 
TSX oTeWAIT 
ENDM WAIT 


WAIT FOR TRAP TO COME IN. 


SZN-  TSRETAB ., 
TNZ O.T | YES» RETURN 

PAUSE ONE ie, NO = PAUSE 

LDX S/ONE-DU PAUSE FOR ONE 
MME MSPAU 


TRA WAIT GO SEE IF TRAP CAME IN 


ISSUE MACRO == SET UP FOR MME ea 

MACRO MMEsCPAUSE) (TRAP) © 

COND OFF eWAIT 

INE tH3Zh tty 

EAX TRAPSH3 _. _ ; 


STZ TSRET/TRAP 
MME MS#H1 

INE "H2%, "NP! 41 
WALT 

COND ON/WAIT 
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ARGDEF == DEFINE ARGUMENTS FOR MME 


CRSM OFF AVOID A MESS 
DG: teats et ee Oe etree d 
#1 #3 

DCARD 7 SKIP THE REST 
Ee tay OO OBS ia astern 
#1 H3,H4 DO OP 

DCARD 4 SKIP THE REST 

a cL eee ELSE GENERATE A CONSTANT oo 
#2 #4 

USE PREVIOUS 
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NAME OF FILE 
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PEN MACRO ateh bas Cobden “tenth, lec Pesal aah terse 

6950 COND OFFeARGDEFsSET/-BSET*ISSUE 

6960 LXL FRNO»#A1 GET FRN 

6970 ARGDEF EAXY¢NAME*A2 
6980 SET SET HG GET ACCESSES 
6990 INE "H3',' "22 

7000 eset BSET eSETFHBSPSW. 

EAX3/NAME>,#3 

7020 INE "#S',s'',2 

7030 EAX Fac Soo pesca ahcpe tee saipdecintes, sh stn BeLe do Be MS antes 
7040 eSET BSET eStETIESFET ADD IN FETCH BIT 
7050 LDX FLAGS» .SETs#DU GET ACCESSES 
7060 ISSUE OPE-H#6-8#7 ©... ISSUE. THE OPEN... 
7070 COND ONsARGDEFSSET*¢BSETAISSUE 

7080 ENDM OPEN 
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POINTER IN SOURCE FILE 
FRN OF DESTINATION FILE 
POINTER IN DEST. FILE 
LENGTH TO COPY 
FLAGS 
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OPY MACRO | 
7210 En a aie cc ce a NAR Nb Mace ace alannah a ats catalina a tea Cheer a le ln tha enone aan 
7220 COND OF F/ARGDEF,/ISSUE 

7230 ARGDEF EAX1/DATA/#2 DEFINE POINTER 

7240 of SNE, .60°2 ROPER 0 ORE 2h. | ee Ee 
7250 ARGDEF EAX3eDATAs#4 GET POINTER 

7260 ARGDEF EAX7sDATASHS DEFINE LINGTH 

7270 LDX — X4e#6,0U GET FLAGS. 

7280 ISSUE COP rH#7 #8 ISSUE COPY 

7290 COND ON/ARGDEF/ISSUE 

7300 ENDM COPY... 
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7340 
7350 
7360 
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7380 
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7420 
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7460 
7470 
7480 
7490 
7500 
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7520 
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SOO ON Bcc a ala pea ee to etn tlt 


#1 = FRN. 

#2 = PTR 

#3 = LENGTH 

#4 = FLAGS . 

#5 = PAUSE 

MACRO ; Spates tae Aes a 

COND OFFseISSUE/ARGDEF 

LXL X20#1 GET FRN 

ARGDEF EAX1,DATA-#2 GET POINTER 
ARGDEF EAX7s*DATAs #35 GET LENGTH 

LDX X4eH#4-DU GET FLAGS 

ISSUE WRI2H5SAH#6 ISSUE WRITE 
COND ONs ISSUE -ARGDEF 

ENDM WRITE 

MACRO ee eee 
OCT 015012177177 <CRO>Z<LFEF>-/-RUBOUTS 
ENDM CRLF 
MACRO 

OCT 015177177177 

ENDM | CR 

MACRO 

OCT 012177177177 

ENDM LF 
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EJECT 
FOPEN = OPEN A FILE 


#1 
He 
#3 
A4 


CATALOG FRN. _. Heaps 
ADDRESS OF FILENAME 
ADDRESS OF PASSWORD 
ACCESSES 
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ROUTINE RETURNS TO *#2 IF OPEN SUCCESSFUL 


x+1 IF NOT 

AT. EXD TOE oe occ cnvene a elie: oo 

DESTROYS REGISTERS X AND Y 
CCX) = EXECUTIVE STATUS 

CCY) = FILE FRN 


MACRO FRCATsNAME sPASSWORDSACCESS 
TSX TaFOPEN 

ZERO #2 ,#1 

ZERO #3,#4 

ENDM FOREN. .5: 


NULL 

SREG OPER _. 

STX Ts OPEX 

LXL XO -0PEX~aI 
LXL FRNO»2X0 sesttites : 
LDX  X1/0PEXsID FILENAME 
LDX X3e0PEXesI PW 

CXL... X4,0PEXeID ACCESS 
EAX TRAPsTSTRAP TRAP 
ISSUE OPE 


CAT FRN 


STZ. se TU ET UP 5 ceeds oles oe tie ade a ates cet ee Sac a ane lal ae ee are at a tla ets 


MME MSOPE 
TSX TesWwAILT WAIT FOR TRAP TO C 
LDX X1eTSSTW1-TRAP GET THE STATUS 

ANX X1/BSMASLQ,DU e 

SXt.._.... XIZORPER 
STX X2e0PER+1 

LREG OPER 

Xe 22D, 
TRC eat 

TRA 37T 
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ERROR RETURN 
SUCCESSFUL RETURN 


ARG Or * 


“ETGHT 
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SAVE INDEX FOR PARAMETERS 
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CHECK FOR RELATIVE SUCCESS 


PARAMETER POINTER/RETURN WORD 
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- ROUTINES @=GENERAL I0 AND. SUPPORTING MACROS CO6/304 74) cette neni gue wie ck 
eo 8050 EJECT 
ane 8060 * 
@ 8070 * 
3 8080 * FWRIT © WRITE TO A FILE 
| @ 8100 * #1 = ADDRESS OF DESTINATION POINTER 
, | 8110 * #2 = ADDRESS OF DESTINATION FRN 
; x 8120 * #3 = TRAP ADDRESS ooo 2 
e 8130 * #4 = ADDRESS OF LENGTH TO WRITE 
| 8140 * PRESERVES REGISTERS 
| 8150 * eee se le seat est se ate en AM Ree este tne 
| @ 8160 FWRIT MACRO ADRESS» FRNOsTRAP sNUMBER #OF#WORDS 
8170 TSX Te FWRIT 
| | 8180 ZERO #1 #2 
| @ 8190 ZERO H3 #4 
pie 8200 ENDM FWRIT 
» ; ~—6B 210 * 
1 oo. 000250 8220 FWRIT NULL 
: 2 ~§000250 000270 7530 00 8230 SREG WRIR PRESERVE ENTRANCE REGISTERS 
pe 000251 000265 7400 00 8240 STX T/WRIX SAVE PARAMETER POINTER 
@ 000252 000265 2210 51 £48250 LDX 1/WRIXoI PICK UP ADDRESS , 
000253 000265 7220 56 8260 LXL 2/WRIXeID PICK UP FRN 
: 000254 000000 7220 12 £8270 LXL 20002 . nos as. Scpee usbbiion er ee 
@ 000255 000265 2260 51 8280 LOX 6,WRIXeI PICK UP TRAP ADDRESS 
: 000256 000265 7270 56 8290 LXL 7oWRIXZ1D PICK UP LENGTH 
oy # 000257 000000 2240 03 8300 LDX4 O,DU FLAG BITS 
e 000260 8310 ISSUE WRI 
e 000260 000002 4500 16 STZ TSRET/-TRAP 
000261 500134 0010 OO MME MSWRI | . 7 7 SC 
eo 000262 000205 7000 O00 TSX Te/WAIT WAIT FOR TRAP TO COME IN 
| 000263 000270 0730 00 8320 LREG WRIR RESTORE REGISTERS 
a 000264 000265 7100 51 8330 TRA WRIXeI1 
e 8340 * 
‘ : 8350 * 
} ~ 00265 000000 0000 20 8360 WRIX ARG O-* : 
@ : 000266 000002710004 . 
E : 000270 8370 EIGHT 
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READ 


FREAD 


ROUTINES ==GENERAL..10..AND 


EJECT 
FREAD = READ FROM A FILE 
PRESERVES ALL REGISTERS 


MACRO FRNOsCCORE. | 


ADRESS) 2¢T RAP 2 (NUMBER. OF WORDS) ences semen 


TSX Te FREAD ISSUE FREAD WITH THESE ARGUMENTS 
ZERO #1 #2 *FRN, * ADDRESS 

ZERO A3cH4 *TRAP»*LENGTH. 

ENDM FREAD 

NULL | | hessds pause ie ans dena 

SREG REAR SAVE ENTRY REGISTERS 

STX T/REAX SAVE ARGUMENT POINTER 

LDX O,REAXsI. _ *FRN 

LXL 0-00 FRN 

LXL 3,REAXe1ID *ADDRESS 

LDX | 6REAXeI |. *TRAP 

LXL 7/REAXe 1D -*LENGTH 

LDX4 O,DU FLAG BITS 

ISSUE REA... 

STZ TSRETsSTRAP 

MME MSREA 

TSX TeWAIT WAIT. FOR. TRAP.TO. COME IN. 
LREG REAR RESTORE REGISTERS 

TRA REAXeI 

ARG O,* ARGUMENT POINTER/RETURN WORD 
EIGHT 

BSS 8 ENTRY REGISTERS 
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fs ROUTINES **GENERAL I0. AND. SUPPORTING. MACROS. COG/3OS/ 74) neni init nine eases a 
; eo 8690 EJECT 
me) 8700 * . 
e 8710 * 
- 8720 * FCOPY = COPY FROM ONE FILE TO ANOTHER 
| i 8730 * sabes aloes seth Satur ce® persis 
| e 8740 * DESTROYS REGISTERS X 
8750 * CCX) = EXECUTIVE STATUS 
8760 * | Noa ests est ene Ds re Betas i sc oe os ett sata Fe gt a A Bo 
| e 8770 FCOPY MACRO FRI sLOCATIONSFR2 seLOCATION/-TRAPsC NUMBER OF WORDS) 
&780 TSX Ta FCOPY ISSUE FCOPY WITH THESE ARGUMENTS 
| 8790 ZERO #1082. *SOURCE FRNe*SOURCE LOC 2 ee ee 
eo 8800 ZERO H30H#4 *DESTINATION FRNe*x*DESTINATION LOC 
8810 ZERO #57 H6 *TRAPs»*RECORD LENGTH 
8820 ENDM FCOPY 
@ 8830 * 
, 000330 8840 FCOPY NULL : | 
|. 000330 000360 7530 00 8850 SREG COPR PRESERVE ENTRY REGISTERS (2 
} & 000331 000355 7400 OO 8860 STX Tp COPX SAV ARGUMENT POINTER 
| 000332 000355 2200 51 8870 LDX O,COPXsI GET *FRN 
Ez 000333 000000 7200 10 8880 LXL 0,0,0 GET _FRN 
le 000334 000355 7210 56 8890 LXL 1/COPXsI1D *SOURCE LOC 
, 000335 000355 2220 51 8900 LDX 2-COPXeI *F RN 
E 000336 000000 7220 12 8910 LXL 2s0e2 . FRN 
le 000337 000355 7230 56 8920 LXL 3,COPXsrID *DESTINATION LOC 
.. 000340 000000 6240 00 8930 EAX eo NO FLAG BITS 
_ 000341 000355 2260 51 8940 LDX 6/COPXsrI *TRAP 
@ 000342 000355 7270 56 8959 LXL 7/COPXsID *LENGTH 
| 000343 8960 ISSUE COP 
000343 000002 4500 16 STZ TSRET/TRAP 
| o 000344 500131 0010 00 MME MSCOP 
000345 000205 7000 O00 TSX TeaWAIT WAIT FOR TRAP TO COME IN 
000346 000000 2210 16 8970 LDX XezTS$STW1-B8 GET. THE STATUS 
ie 000347 000777 3610 03 8980 ANX Xe BSMASLQ-DU kk KR 
‘ . 000350 000360 4410 00 8990 SXL XeCOPR * RESTORE REGISTERS 
| --: 900351 000360 0730 00 9000 LREG COPR | 2.2.2. 7 “ 
(oo. 000352 000002 1010 03 9010 CMPX X-SSSFEt1,/DU CHECK FOR ONE OR LESS 
: 000353 000003 6050 10 9020 TPL 327 ERROR EXIT 
“900354 000004 7100 10 9030 TRA 4oT. SUCCUSSFUL EXIT | 
| eo. 9040 
- 9050 * 
~~ 900355 000000 0000 20 9060 COPX ARG Or*. 
- 000356 000002710004 
000360 9079 EIGHT 
= 000360 9080 COPR BSS 8 ENTRY REGISTERS 
T 3 
| @o. 
|e 
| @ 


yess ae 


9090 EJECT 


FCLOS = CLOSE THE SPECIFIED FILE 
PRESERVES ALL REGISTERS 
CLOS MACRO. FRE... 


9180 ARG #1 ADRESS OF FILE'S FRNO 
9190 ENOM FCLOS. rer Sp esiy iis o's et shad igtace rides 


000370 9210 FCLOS NULL 


000371 000401 7400 00 9230 STX Te CLOX SAVE ARGUMENT POINTER 
000372 000401 7200 57 9240 LXL O,CLOX/1DC 
000373 000116 6260 00 9250 2 a | ee ee 
000374 9260 ISSUE CLO CLOSE THE FILE 
000374 000002 4500 16 STZ TSRET/TRAP : 
000375 500105 0010 00 MME. NS A Oh eeedt tice icp Aree Bian, cctitair aaah Sete talen ata sted areal gaeg ts Ad ed ed a 
000376 000205 7000 00 TSX TsWAIT WAIT FOR TRAP TO COME IN 
000377 003410 0730 00 9270 LREG CLOR RESTORE REGISTERS 
000400 000401 7100 51 9280 TRA CLOXeI EVAPORATE | 


HEART ee SSL 


aaa 


@®eeeeee%seeeee#%eeeeeeeeeeee @ 
oO 
MN 
Oo 
oO 
* 


000401 000000 0000 20 93190 CLOX ARG O-* . — ARGUMENT POINTER/EXIT ...... 


003410 9320 USE EIGHT ‘ : 
003410 9330 CLOR BSS 8 REGISTER STORAGE 
000402 9340 USE —S~ PREVIOUS 


eee Neqannee eatasae Be hac tA dectcsses bp eeeRastesstee Suwanee neon Drege cea Us a engage ay CRE Pa eg 


ROUTINES *GENERAL. IO AND. SUPPORTING. MACROS. COG 30174 i cccnmsins immu se manent nnin smn wee 


9170 TSX Te FCLOS ss TSSUE FCLOS WITH THESE ARGUMENTS 


000370 003410 7530 00 9220 SREG CLOR. SAVE DEALING 2REGT StF R58 occ mudve vi cen tipiued epee cates ie Luka unhee ale Ganisnbs 
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9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 


EJECT 
a See Oo Oe oC Mane hl Se 


ADDRESS OF CATALOG FRN 
ADDRESS OF FILENAME 
ADDRESS OF FILE FRN 

ADDRESS OF PASSWORD 
ACCESSES... 


wz 
Ww 
anu wu uw u 


ROUTINES *=GENERAL I0 AND SUPPORTING MACROS (06/30/74) (0 te a eet eee 


fee : i SES 2 ‘ : 
fo loeglie i Sy hs 
i wh te in ee ha ae ces : 3 = ot a : & fo : 2 A & : 5 re ae = Be = E : : : ? . 
: a 4 ~ ae . : : 4 : : : : 
: : : : : : H 


Bo CR Un e 
£ iso he os ~ 


000402 
000403 
000404 
000405 
000406 
000407 


000410 


000411 
000412 
000413 
000414 


000415 
000416 
000417 
000420 
000421 
000422 


900423. 


000424 
000425 
000426 
000427 


_ 900430 


000431 


~000440 


000430 
000430 
000000 
000430 
000430 
000000 
000430 
000430 
000430 
000116 


000002 
500103 
000205 
000430 
000000 
000440 


(000440 


000440 
000777 
000001 
000000 


000000 


000402 


7530 00. 


7400 O00 


2200 51 


7200 10 
7210 56 
2220 51 
7220 12 
7230 56 
2240 51 
7250 56 
6260 00 
000415 
4500 16 
0010 00 
7000 00 
2200 00 
2210 16 
7400 00 
4410 00 
0730 00 
3610 03 
6000 10 
7100 10 


0000 20 


000007710004 


000440 
000440 


9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9640 
9659 
9660 
9670 
9680 


9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 
9780 


9790 
9800 


FCATL 


T+ + + & HF EF FF HH HF 
tt 
oa 


NULL 
SREG 
STX 
LDX 
LXL 
LXL 
LDX 
LXL 
LXL 
L DX 
LXL 
EAX 
ISSUE 
STZ 
MME 
TSX 
LDX 
LDX 
ST X 
SXL 
LREG 
ANX 
TZE 
TRA 


ARG 


EIGHT 
BSS 


CATR 


T/CATX 
Or CATXalI 
0-0-0 - 


1eCATXeID 


2eCATXal 


20022 


3eCATXeID 
4eCATXeal 


SeCATX-ID 


BseTSTRAP 
CAT 


TSRETsTRAP 


MSCAT 
TewAIT 


TA CATX. 
XeTS$STW1-B 


Ts CATR 


X#CATR. 


CATR 


XeBEMASLQ4DU 


1-T | 
O,T 


Or * 


8 


CAT FRN 


9430 ADDRESS OF USAGE INFORMATION 
9440 RETURNS TO *+#2 IF CATALOG SUCCESSFUL 
9450 | eet TE NOT | 
9460 DESTROYS REGISTER X 
9470 CCX) = EXECUTIVE STATUS 
9480 eee ad a. . . siete an s Systane, 
9499 CATL MACRO FRNCsFILNeFRNF oPWF «ACCESS -USAGEs TRAP 
9500 TSX ToFCATL 
9510 ZERO 8 #1 #2 ; 
9520 ZERO H3,#4 
9530 ZERO #5 7H#6 
: 9540 ENDOM FCATO naan 


SAVE ARGUMENT POINTER 
*CAT FRN 


*FILENAME 
*FILE FRN 
FILE FRN. 
*PASSWORD 
*ACCESSES 
*USAGE 
POINT TO TRAP 


WAIT FOR TRAP TO COME IN 


GET THE STATUS 


kkekknk 


kk kK 
ONLY THE STATUS 


*YOU LOSE* 


PRESERVE ENTRY REGISTERS tne 


eNO SO ee IN ie Shaka en Ree bere or ela anh ah eaten aa einer cect aac Dentin 
Bie S ew. en 8 C8 EOE Le a eee rs ee ee ire: CON See een eee Cann ee ees: Feeee 


SUCCES See eB a alee, cass n Bedutcderta ante a decade calacy 2 oe ce tapey te aca basa sad W Sarat 


se Ng Oh, gg, ee ae a te ee se Re eee eee, 


a GAYA mr: SAM Sohal See ee 
7 Mp siaetds Gu Lai fay anes we a : 
e y ' 
t i 
um ot Lo ula A A E : 5 fe eB TB fe a oz 2. : - i te : " a Y a oe ‘i : oe es we %. % Paes 2 ; : = 7 = 2 3: of = a F : 
: ty (iy ts PS Ss 2 = & a a as a as “# s a Be a c t no : sine Bee aS Mt Bor tn Le => Stem | SS cee Ee FS 7 7 ORES it hoe nen \ 
3 : : : : : : F ; : 5 : : 


i 


ww a) 


at a ee 
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000450 
000451 
000452 
000453 


000454 


000455 


000456. 


000457 


000460 


000461 


000462 
000463 


000464 
000465 
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000470 
000464 
000464 
000464 
000464 
000464 
000464 


000002 
500100 
000205 
000470 
000464 


000000 


000450 
7530 00 
7400 OO 
2240 51 
7250 56 
2260 51 
2350 57 
2360 20 

000457 
4500 16 
0010 QO 
7000 O00 
0730 Q0 
7100 51 


0000 20 


000003710004 


000470 


- 000470 
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9810 
9820 
9830 
9840 
9850 
9860 
9870 
9880 
9890 
9900 
9910 
9920 
9930 
9940 
9950 
9960 
9970 
9980 
9990 
10000 
10010 
10020 
10030 


10040 
10050 
10060 
10070 
10080 


10090 
10100 


FOPES 


OPES 


ROUTINES @*GENERAL. I0 AND SUPPORTING MACROS COG/3O/ 74)... ccs wees tun insistent ns 


EJECT 


FOPES 


* OPEN A SCRATCH FILE 


PRESERVES ALL REGISTERS 


MACRO 
TSX 
ZERO 
ZERO 
ZERO 
ENDM 


NULL 
SREG 
STX 
LDX 
LXL 
LDX. 
LDA 
LDQ 


ISSUE 


STZ 
MME 
TSX 
LREG 
TRA 


TYPE/APREFeTRAPseCATIMACAT.N.. oe 7 Gast ste aaa teas Raat, octane 
Te FOPES 


#1 #2 


TOI oo iaine ccariees atin’ 


#5 
FOPES 


OPSR 


TeOPSX. | 
470PSXel 
5/O0PSX,ID 
OsOPSXel 
OPSXs IDC 


OPSXs* 


OPS. 
TSRET/TRAP 


MSOPS 


TeWAIT | 


OPSR 
OPSXal 


O,* 


ISSUE OPEN SCRATCH WITH ‘THESE. “ARGUMENTS 
FILE/CAT FLAGsPREFERENCE (CFILES ONLY) 
*TRAP 2 * CAT. MAX. 

*ENTRY GUESS 


PRESERVE ENTRY REGISTERS 


SAVE ARGUMENT POINTER... 


FILE/CATALOG FLAG 
PREFERENCE 


CAT MAX 
CAT GUESS 


RESTORE REGISTERS 


ENTRY REGISTERS 


WAGE oP ORS R AR TO) 0 OTF BIN osetia eileen ea dea tinadearasbmiepanceccle pale hoieaenes 


7 ‘ : Z z : : j : 1 ; 
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000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000510 
000511 
000512 
000513 


000514 
000515 
000516 

000517 
000520 
000521 

_ 0005ee 
000523 
000524 


000525 
000526 
000527 
000530 
000531 


000532 
000533 
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000550 
000545 
000546 
000545 
000000 
000000 
000545 
000000 
000545 
000545 
000547 
000547 


000002 
500132 
000205 
000000 
000777 
000545 
000542 
000400 
000532 


000546 
000546 
000004 
000513 
000536 


000001 


000542 


10:30:32 


000500 


7530 
7400 
4500 
2200 
7200 
6240 
2350 
2350 
2270 
7260 
7400 
2200 


00 


000514 


4500 
0070 
7000 
2210 
3610 
6000 
6000 
1010 
6010 


0540 
7210 
1010 
6020 
7100 


1010 
6000 


10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 


10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 


? + & & & & FH HF He FF 


DRIV 


FDRIV 


DRIM 


DRIR 


DRIP 
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EJECT 
FORIV * FUNCTIONAL DRIVE TO A FILE 
#1 = ADDRESS OF FILE FRN.... ete Bead 
#2 = ADDRESS OF FUNCTIONAL WORD 
#3 = ERROR ADDRESS 
#4 = TRAP ADDRESS 
DESTROYS REGISTER X 

CCX) = EXECUTIVE STATUS 
MACRO FRN»eTYPWDZERR 
TSX T~FDORIV 
ZERO #1e#2 
INE "#4, **,2 
ZERO | #3 #4 
DCARD Fo. 
ZERO #3,TSTRAP 
ENDM FDORIV 
NULL 
SREG DRIG PRESERVE ENTRY REGISTERS 
STX TeDRIX | SAVE PARAMENTER POINTERS | 
STZ DRIC CLEAR ERROR COUNT 
LOX O,DRIXsI *FRN 
LXL 0-00 FRN Sen atte, Be 
EAX 470 ZERO FLAG BITS 
LDA DRIXsID *TYPE WORD 
LDA QO, AL es TYPE WORD. 
LDX 7/DRIXeI *ERROR ROUTINE 
LXL 6/DRIXe1D * TRAP 
ST X O-DRIF SAVE THE..ERN FOR. ERROR RECOV ERY ieee See eleaeceereaniie See mceiaddua pales 
LDX O,DRIF RECOVER THE FRN 
ISSUE DRI 
STZ TSRETs»TRAP 
MME MBSDRI 
TSX TeWAIT. WAIT FOR TRAP TO COME IN 
L DX X/T$STW1-B RCo et ieee ac ame 0 2 2 rnc ees Tem Ire Cee een a Poe ve On we 
ANX XeBSMASLQ-DU ° 
TZE DRIXslI IF ZERO ™ EXIT 
TZE DRIXT. IF GOOD, EXIT... 7 
CMP X XeSSRERZ DU IS IT RECOVERABLE 
TN2Z DRIP NO = CHECK SOME MORE 
AOS DRIC BUMP ERROR COUNT 
LXL X/DRIC GET THE ERROR COUNT 
CMPX X24eDU CHECK AGAINST MAX 
TNC DRIM TRY SOME MORE 
TRA DRIB TAKE ERROR EXIT 
CMP X X/SS$DEF,DOU IS IT EOF? 
TZE DRIXT 


YES = EXIT SUCCESSFULLY 


f ; X e £ 


eR Ee & 


a 
a 2 a pe 


i 
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000534 


000535 


000536 
000537 


000540. 


000541 


(000542 


000543 
000544 


000545 
000546 
000547 
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000120 1010 03 


000525 6000 00 


000553 4470 00 
000550 4410 00 
000550 0730 00 
000000 7100 17 


000550 4410 00 
000550 0730 O00 
000545 7100 51 


000000 0000 20 

000000000000 

000000000000 
000550 
000550 
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10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 


DRIB 


DRIXT 
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CMP X 
FZE 
SXL 
SXL 
LREG 
TRA 


SXL. 
LREG 
TRA 


ARG 
DATA 
DATA 
EIGHT 
BSS 


XeSS$BSYDU 
DRIR. _.. 
7eDRIG+H3 


X-DRIG 
DRIG. 
0-7 


Xe@DRIG | 


DRIG 
DRIXsI 


O,* 
0 
0 


8 


WAS IT BUSY 


YUP. =. TRYAGAIN. 


ERROR EXIT 


kkekkk 


_* RESTORE REGISTERS. 


kkk KK 


RE ie ameedneen eae 
* RESTORE REGISTERS 
woke ke 


ENTRY REGISTERS. | 


WBS Geee SS (k [Rt ae Beene eee RCO cP eOOn ae eee ened et nae es ty eae! 


\ 
the, 


Ea ese 


eT 


Se 


PACKOPY 


~ 000560 


000561 


000562 


000563 


000564 


000565 
000566 


000567 


000570 
000571 


000572 


000573 


03/17/82 


0005 
000600 7532 
000001 6222 
000000 6242 
000116 6262 


000002 4502 
500134 0012 
000205 7002 
000000 2212 
OO00777 3612 
757500 6012 
000600 0732 
000000 7102 


10230332 


60 | 


RINT 


PRINT 


ROUTINES *=RUDIMENTARY TELETYPE 10 CO3/24/74) 


TTLS ROUTINES**RUDIMENTARY TELETYPE I10 (€03/724/74) 


PRINT = WRITE A MESSAGE TO A TELETYPE 


#1 = ADDRESS OF SOURCE POINTER | 
#2 = ADDRESS OF LENGTH 
ALL REGISTERS PRESERVED cuttin eat ed te 


MACRO LOC»/LEN 

EAX 1A Loe 

EAX 7rH#2 LEN 

TSX T/PRINT DOIT 
ENDM PRINT 


INHIB ON 


NULL 


SREG PRIR 
EAX en) 
EAX (~~ 4000 
EAX Be TSTRAP 

ISSUE WRI 

STZ TSRETsTRAP 
MME MSWRI 

TSX TeWAIT 

LDX = X-TS$STW1isB 
ANX XeBSMASLQeDU * 

TNZ BSERROR IF NOT PERFECT @ DIE 
LREG =PRIR . 
TRA O,T | 
INHIB OFF 


POINT TO THE TELETYPE 


POINT TO THE TRAP 


WAIT FOR TRAP TO COME IN 


RETURN 


RESTORE CALLING REGISTERS... 


5 ee AN ano at eh ig Aisle cael aaa non gel sas bid, 


et Tea 5h ace a aatite rs ht Ae ate icles aerate aa ete eP he ueeoeale aay 


11060 
000574 0090004710004 
000600 11070 EIGHT bee lrigieid piel eh ett a 
000600 11080 PRIR BSS 8 ENTRY REGISTERS 


Un fageten acta OB GPE SE SEG ae 
aw “8 . A ‘ a pia ese a 2 sy, e : s. Bar as ” : a ~ aoe P se ent ; : ss at = a a ee P % 5 ‘ “ : 7 > ; a a es 
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te | 


mn k 
j 


ai. 
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‘3 
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BNA 


{ 


\. DAA 8 aS bm ne pein yey: sainthes aes SEL 
we beddieh ADI HERCIY sab = ‘ 
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000610 


000611 


000612 
000613 


000614 


000615 


900616 


000617 
000620 


000621 


000622 
000623 


000624 


000625 
000626 
000627 
000630 
000631 


000632 
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0006190 
000640 7530 00 
000001 6200 00 
000000 6240 00 
000116 6260 00 

000614 
000002 4500 16 
500133 0010 00 
000205 7000 00 
000000 2350 17 
000001 0750 16 
000000 2210 16 
000644 7550 00 
000640 4410 00 
000640 0730 00 
000777 3610 03 
000000 6000 10 
000001 1010 03 
757500 6010 O00 
000000 7100 10 


000006710004 
000640 
000640 
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11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 


11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 


11450 
11460 


NPUT 


INPUT 


INPR 


ary 


ROUTINES *@RUDIMENTARY. TELETYPE 10. CO3 L2G 24). ccc cccse ce ciiee ee ieentntte tient dane wa ay agai vinnie aon 


EJECT 


INPUT = READ A MESSAGE FROM THE TELETYPE 


He ADDRESS OF LENGTH 

DESTROYS. REGISTER. Ag Xo. 
CCX) = EXECUTIVE STATUS 
CCA) = WORDS ACTUALLY READ 


MACRO LOCsLEN 

EAX 37#1 LOC 
EAX lee... ues LEN 
TSX Te INPUT 

ENDM INPUT 


NULL 

SREG INPR 

ES ace Om neti cess swe koe 
EAX 470 

EAX Be TSTRAP 


PRESERVE CALLING REGISTERS 


CLEAN FLAG BITS 
POINT THE THE TRAP 


STZ TSRETs TRAP 

MME MSREA 

TSX T/WAIT. | 

LDA 0,7 

ADA TSSTW2-8 

LDX XeTS$STW1-B... .... 
STA INPR+4 

SXL Xs I NPR 


GET LENGTH REQUESTED 


GET.THE STATUS. 


kKkkkk 


* RESTORE THE REGISTERS 


LREG INPR.. sheild axel RR OW oct. a lt ea ee Soe Se, 


ANX X»BSMASLQ,DU 
TZE O-T 

CMPX... .XazS$SFEeDU .. 
T™NZ BSERROR 

TRA O-T EXIT 


ONLY THE STATUS 


BSS 8 ENTRY REGISTERS 


CORRECT TO AMOUNT ACTUALLY TRANSFERRED 


a ee 


ADDRESS OF DESTINATION POINTER 


O10 BT Mee FeO BPR Fs meet we Oe) a dl oh eae NR eTEOeT  rr  RRNN etens e ONe e e O ee eeee meee eTe 


WAT Bc Oo Rec TRO ONE TN a he Motte aetna need ow 


ae Renney eater 


Pe 2 1c), 2 ee nee ee eee ROS ae OR, Poe RUN MPR NC Pee TI Weide ENOT rere: OF SR MN ee men EMT ite tener Remaster Aare tSdO NE rs 


= x. ies BS IEC A523 = 2 Ee — ee =— = : i se a E a es se a Be a 2 a aa 5 Sen cee = oes) aS 
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000650 
000651 
000652 
000653 
000654 


000655 


03/17/82 


000006 
000003 
000655 
000650 


000000 


000000 


2350 
7370 
7550 
6070 
7100 


0000 


10330232 


11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 


PRINT 


* 


OPRINT 


ROUTINES**RUDIMENTARY TELETYPE 10 CO3S26 A 7a) ces nnn i 


EJECT 
OPRINT 

OCTAL PRINT ROUTINE _ . 

CALLED BY OPRINT MACRO 

ASSUMES OCTAL NUMBER IN @ LEFT ADJUSTED WITH DIGIT COUNT IN X1 


MACRO LOC+LEN 


LDX X1-#1-DU STUFF LOCATION FIRST 

STX | X71 TALLY cee, bes oy lk Pato es eeeiebie aoe cee taeeeeeenn tee 
eox X1/#2*64432,DU GRAB LENGTH OF NIBBLE STRING 
SXL X1/TALLY 

TSX T/OPRINT |. STUFF IT! 

ENDM OPRINT 

LDA 64DL | GET AN ASCII ZERL | 

LLS 3 MOVE IN DIGIT 

STA TALLY»SC SAVE IT 

TTF  OPRINT GO FOR MORE? 

TRA O,T EXIT 


TALLYB xkyee 


SPRINT/TXT = FACILITATE USAGE OF PRINT ROUTINE | 


MACRO MESSAGE@NAME 
PRINT #1P,#1L 
ENDM SPRINT 


MACRO NAMEsMESSAGE TEXT 
DATA #1 POINT TO THE MESSAGEs #1 


ery gee ame 


TEXT =#2= ep ns 8 ee 6 Sp CE Beak “Bcd: oN eR ee a eee a Ee OT ITC, eee ee 
DATA xm H# 4 GENERATE A WORD WITH THE LENGTH 
ENDM TXT 


3 es ¥ rhe ee as er ae Re peeps 8 pe 
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000656 
000657 


000660 
000661. 


000662 
000663 
000664 
000665 


000666 


000667 
000670 


000671 


000672 
000673 


000674 


000675 
000676 


000677 


000700 


900701. 


000702 


_ 000703 


000704 


eee 


000706 
000707 
000710 
000711 
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000040 
000660 
7777.76 
000050 
000001 
000060 
500004 
000054 
500003 
000056 
000747 
000747 
0007.77 
000011 
000756 
000050 
000000 
000003 


000060 
000273 
000676 
000063 


000764 


000772 


000000 


000760 


000002 
500134 


000656 


000060 
0750 07 
7550 52 
6070 Q0 

000703 
7220 00 


6210 O00 


6270 00 
2240 03 
6260 00 
4500 16 
0010 00 


10:30:32 


11340 
11850 
11860 
11870 
11880 
11890 
11900 
11910 
11920 
11930 
11940 
11950 
11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 
12180 
12190 
12200 
12210 
12220 
12230 
12240 
12250 
12260 


NAME 


PORG 


ABORT 


ASC..0 


ROUTINES **ABORT AND. TERMINATE WITH A DUMP COO/3OI 74). ooo co ccce wer wemneevee ene cev nein anti wee 


TTLS ROUTINES**ABORT AND TERMINATE WITH A DUMP (06/30/74) 


MNAME 


MACRO USED TO INSERT. THE. MODULE NAME INTO THE OPEN DUMPFILE eee eo 


PORTION OF THE MODULE ABORT ROUTINE. 


MACRO MODULE NAME ooo e cosets: 
COND OFF seSETsORG 

SET * 

ORG MODNM. 

UASCI Cr #1 

ORG PORG 

COND ONezSET/ORG. . 

ENDM MNAME 


ABORT = COPY CORE TO DUMP FILE AND TERMINATE WITH PROPER STATUS oo 


EVEN 

NULL Cieast 
SREG TRMRG 
TSX To x1 
LDA = 2 eT. 

STA ERIC 

SBX To1/dU 
SXL T*sRUNFA | 
MME MSDAT 
STAQ RUNDT 
MME |. MSATI 
STAQ RUNTM 
SBAR RUNBR 
LDA. RUNBR. ... 
ANA BEMASLQ~»DU ° 
ARL 189 e 
STA . MODLN..... 
LDQ ERIC. 

LDA ODL 

ie ° a a eae Ree ae 
BOOL 060 

ADA ASC.20¢DL * 
STA... 
TTF x4 » 

WRITE TTYFReBOMPsBOML «a oe DTRAP WRITE FAILURE MESSAGE 
Ll ence Owe LIER ee GET UE RN. C 
IFE a ge pe 
EAX1 BOMP 
SS dct’ © Sane 
EAX? BOML 

LDX X4e/DU GET FLAGS 
EAX  TRAP,DIRAP 

STZ TSRETs»TRAP 

MME MSWRI 


NER FROM Ob ROT Ve OT ORR es eet Ne ceca 
SAVE REGISTERS FOR DUMP INSPECTION 
BREAK XEDs SAVING IC 


SAVE IC/IR AT FAULT TIME 
CALCULATE FAULT LOCATION 


GET DATE OF DEMISE 
AND STORE : 


GET OUR CURRENT LENGTH 


CONVERT TO ASCII 


CHECK FOR NO TAG. 


ee) ae ee 0 se. es a 9 | =e ee er ene ee TO te 
SAVE. POR DUMP. DNS BE CT LION cc ccch erates aca ee ar aracions A eitalla aygrndnaacle ankle Dist 
CD Ge a a a 2 ee ee De, 8 a ee aCe oe ne eR nn er Cree reer tee eae rer 


bear ary 7 oi a ia ae biebeaes 


er raa rata 1 ea ' storeeeeahs 


B50 Lk 2-5 ae REY Ewe ee RE FEC ve rs UE I NMR TES MC AUER HmeOOre SOE JPEN RUT We eer CCT sn ACEO Oe en ee ee ACE 


SCHECK (FP ORONG TAG. ooo ee ee ee he en et et ew 


J Bee vhs ee EO 
Pe, fe ee ES R 2 : : = t aah 18s Me # 5 ie 2 : - be ; - os oe x < oe : : x 2 a : 7 : : : : ? \ 
4 : : 3 2 s i : : e : : ; 
E i ; : 2 < 2 : 


-PACKOPY 


000712 


000713 


000714 


000715 


000716 
000717 
000720 
000721 


000722 


000723 
000724 


000725 


000726 
000727 


000730 


900731, 


000732 
000733 


000734 


000735 


000736 
000737 
000740 
000741 
000742 


000743 


000744 
000745 


(000746 


000750 


000751 


000752 
000753 


000754 


000755 
000756 


000757 


000760 
000761 
000762 


000763 


000764 


03/17/82 


000205 7000 00 
000050 2340 00 
000742 6000 00 

000715 
000062 7200 00 


000752 6210 O00 
000002 6270 O00 
026000 2240 03 
000760 6260 00 
000002 4500 16 
500101 0010 00 
000205 7000 OO 
000000 7210 16 
000742 6000 00 
000757 4410 00 


000061 7200 00 


000750 6210 00 
000757 7220 00 


000000 6230 00. 


000756 6270 00 
000000 2240 03 
000760 6260 00 
000002 4500 16 
900137 0010 00 
000205 7000 00 
000000 2240 03 
000060 2340 00 
0007.46 6000 00 
400000 2240 03 
500000 0010 00 


000747 

000750 
000000000000 
000000000000 
104125115120 
103101124040 
040040040040 
040040040040 
000001 000000 
000000000000 
000000000000 
000000000000 
000000000000 
777777 6300 04 
000000000765 


10:30:32 


12270 
12280 
12290 


12300 
12310 
12320 
12330 


12340 
12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 


12440 
12450 
12460 


12470 
12480 


12490 
12500 


TRMNT 


TRM1 


* 
* 


RUNBR 
ZEROS 
DCNAM 
MODNM 
MODLN 


DFFRN 
DTRAP 


BOMP 


ROUTINES**ABORT AND TERMINATE..WITH A DUMP. (06/30/74) eae me 


TSX 
SZN 
TZE 
OPEN 
LXL 
IFE 
EAX1 
EAX 
LDX 
EAX 
STZ 
MME 
TSX 
LXL 
TZE 
SXL 
COPY 
LXL 
IFE 
EAX1 
LXL 
IFE 
EAX3 
IFE 
EAX? 
LDX 
EAX 
STZ 
MME 
TSX 
LDX 
SZN 
TZE 
LOX 
MME | 


BSS. 
EVEN 
OCT 


UASCI 


UASCI_ 


ZERO 
DATA 
OCT 


RET 
DATA 


TAWAIT 
|=; 5 eee 
TRM1 


MFDFReDCNAMs-BSWT+BSAP¢ 24 DT RAP 
FRNOCMFEDER 


ae ae 


DCNAM 


Xle2 


FLAGSs.SETsDU 
TRAPsDTRAP 
TSRET* TRAP. 
MSOPE 

TeWAILT 
XeTSSTW14B 
TRM1 

X/DFFRN 


 CORFRseZEROSsDFFRNAZERO,MODLNe seDTRAP 


XO-CORFR 
tr ,te 


ZEROS. 


a 
ZERO 

a a 
MODLN 

X4eeD0U 
TRAPsDTRAP 
TSRETs»TRAP 
MSCOP. 
TezWAIT 

4/0/DU 

RUNFA_ 

k+2 
4/=0400000,DU 


MSTER 


ts 


0-0 


on 


1-0 
Ooo 
0-0-0 


or a al 


BOMB 


 _DUMPFILE FRN. 


WAIT FOR TRAP TQ) COME IN 


HAVE THERE BEEN ANY ERRORS 


NO = DONT DUMP CORE 
OPEN THE DUMP FILE 


gs a IRN ta Pa st rhc eh, Sl at le te le chara Saad aces pee nh 
CHECK FOR NO TAS 


WAIT FOR TRAP TD COME IN 
PICK UP THE FRN. J. 
IF NONE ™ HOPELESS 

SAVE THE DUMP FILE FRN 


GET FRN1 
CHECK FOR NO TAG 


a aes eee 
CHECK FOR NO TAG 


CHECK FOR NO TAG 


GET FLAGS ~ 


WAIT FOR TRAP TO COME IN 
TERMINATE WITH GOOD/BAD STATUS 


WAS SORE ER ERIN A be eA OR eae aha ret eat eae telecine ae le etal’ 


NOs TERMINATE WITH GOOD STATUS 
TERMINATE WITH BAD STATUS 
TERMINATE 


SRT TP aia ia a 


A LOT OF CORE 


essa Nas fn i gectin iat mass ete Valipeban bata Giese as 


aU 1 sale, 2 Sennen OP ae ERE eRe ee 


BASE ADDRESS REGISTER AT DUM TUM ee eect cnuctuisnininnmenminnm cancun batons 


IN a a aca alee eh en ot ts rts a ik a coe Ect Bai Ba 


! ‘ alee . : 


Bcd 
&. 
6 


ad a a = we En 


si set 
te a 


LATA TEM LS MEAPPS. (Fqit Sp eee 
: 4 abdkige MGR sey Poa/ ARI, fue ati 
mae oT is a, cad : as 3 e cas i - =: # no cs a a Me “5 ow ke oe be os : o a B - - 
t : , P > 5 « 4 ¢ 
: : i : ; j : : : 


@ PAckory 


ty 
$ 


000765 


_ 000766 


000767 
000770 


000771 


000772 
000773 
000774 
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015012141142 
157162164040 
141164072040 
170170170170 
170170015012 
000000000005 
000770 0006 40 
000000 0110 00 
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12510 


12520 
12530 
12540 


BOMB 


BOML 
BOMT 


TEXT 


DATA. 


TALLYB 


NOP. 


=O" ABORT AT? 


ar ala 
BOMB+3 4620 


— 


XXXXXX@° = 


— ROUTINES “ABORT. AND..TERMINATE WITH A. DUMP (06/30/74)... 0 


TALLY TO FAULT ADDRESS IN ABORT MESSAGE 


ABORT MESSAGE CADDRESS FILLED LATER) 


eee a! 


a ee Pee = ae eas a a = anne 2 = a 5 : “s = i zg n =: : : ame z z : 2 
Sia ad ie aan aes TAGS oe 


G3. ser 8% 


PACKOPY 


000775 
000776 


001010 
001011 


001012 


001013 
001014 
001015 
001016 
001017 


001020 
001021 


001022 


001023 


001024 


00171025 
001026 
0071027 
001030 


001031 
001032 
001033 
001034 
001035 


03/17/82 


000000000000 
000002710004 


000122 
001000 
0017205 
001205 
000001 
000000 
000775 
000022 


001204 
001056 
001025 


000000 
001056 


000000 
000775 
001023 
001045 


000000 
000000 
000000 
000000 
000001 


001000 
001000 


001010 


7400 56 
7530 O00 
7550 00 
7440 00 
0350 07 
6350 05 
7550 00 
7710 OO 
0071020 
2250 00 
6000 00 
7100 00 
001023 
2250 15 
6000 00 
001025 
7240 15 
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12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12680 
12690 
12700 
12710 


12720 


12730 
12740 
12750 
12760 
12770 
12780 


12790 
12800 


12810 


12820 
12830 
12840 
12850 
12860 
12870 
12830 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
13030 


G * © ££ * & € FH 


ETD 


GETSIZ 


GETREG 


GET 


GETO 


GETR 


GETS 


ROUTINES*#STORAGE MANAGEMENT AND. SUPPORTING MACROS (O3/24/74) eet 


TTLS 


ROUTINES **STORAGE MANAGEMENT AND SUPPORTING MACROS (03/24/74) 


GET ROUTINE 


CALLED BY TSX7 $GET 


WITH LENGTH OF BLOCK TO GET IN AL 


RETURNS A BLOCK IN X4 


MACRO 
LDA 
TSX 
ENDM 


HEAD 
DEC 


EIGHT 
BSS 


SAVE 
IFE 
STX 
SREG 
STA 
STX 
ADLA 
EAA 
STA 
ARL 
NULL 
LDX 
TZE 
TRA 


NULL 


LDX 
TZE 
NULL 
LXL 
CMP X 
TMI 
TZE 


NEG 
ADA 
EAX 
SXL 
EAX 


#1 DL 
TASGET 
GETD 


tea eee 


Te$PDL-ID 


GETREG 
ATEMP | 
X4-ATEMP 
ONE DL 
vAL 
GETSIZ 
18 


X57 FPTR 


GETM 
GETS... 


X500X5 
GETM 


X442X9 
X&4/GETSIZ 
GETR 

GETJ 


0X5 


X4erAL | 


X400X5 


X4eeLINKs AL 


IF NO REGISTERS SPECIFIED, SAVE Too. 
SAVE T 

PROTECT THE GUILTY 

SAVE LENGTH a op ceca a tate Ge 

SAVE VALUE OF LINK REGISTER 

GET ONE EXTRA WORD FOR LENGTH 

GET LOWER INTO UPPER... 

STUFF SIZE FOR USE 

GET SIZE BACK INTO UPPER A 
ENTRANCE FOR RETRY... ... 


GET POINTER TO FIRST FREE BLOCK 


GO GET MORE IF NOTHING ON THE LIST 
START. FROM. THE BEGINNING | 


USE FORWARD POINTER 


IS THIS BLOCK LARGE ‘NUFF 


a re 


JUST MATCHED IT 


arr a 


- 


GET THIS SIZE BLOCK 
CALL GET ROUTINE 
“SIZE OF NEEDED 3LOCK 
Z 
tae. eonk CLOBBER A BUNCH pS ia ac AR tank es ict cians nana 


NO MORE TO TRY¢ GROW te arin te tie 


ee ee aise tad 


COMPUTE IT 


SAVE NEW CENG EOF BOOK is caceses cael ai ee ew See ateege 


GET POINTER TO 3LOCK 


renee! 
e@eeoee#®@ 


roe SE ehh et ty * -Ly" 


PACKOPY 


001036 
001037 


001040 
001041 
001042 
001043 


001044 


03/17/82 


001037 
000000 


001205 
777777 
001002 
001000 


000122 


7450 00 
0640 03 
001040 
2350 00 
7550 14 
7440 O00 
0730 O00 
001044 


7100 55 


10:30:32 


13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 


GETX 


ROUTINES *"STORAGE. MANAGEMENT AND. SUPPORTING MACROS. COB 2477.4). cee meee tinaan einai | 


STX X5e%+1 SAVE POINTER 
ADX X4e%%eDU 
NULL 

LDA ATEMP GET LINK/LEN 

STA LINKsX4 sha’ tehalte Ce OW eT pci cee: os de Seeks 
STX X4eSVX4+GETREG GUARD X4& UPON RETURN 

LREG GETREG RESTORE REGS 

RETURN 2 oo. RETURN... 

IFE rent *s2 


TRA SPDLs-DIC TRANSFER VIA PDL 


oe 


JPORM POINTER ..70. BEOCK.. FO. AU LO CATS ioe tment ny boat tteetimdmitins Gears 


IF NO TRANSFER SPECIFIED» DO A TRA THRU THE PDL 


Sa Se ET a Ss wa = a —- — cee a Fees ar pe EE Fs Se ee a Ee PE a z = 
oe oe : . wi ts ae 3 mse 4 B £ eo OS: : - " : QS : : e o z : - iS 3 a ‘ Z * % 


“PACKOPY 


001045 
001046 
001047 


001050 


001051 
001052 


007053 


001054 
001055 


001056 


001057 
001060 
001061 
001062 
001063 
001064 
001065 
001066 
001067 
001070 
001071 


~00107e 


001073 


001074 


001075 


03/17/82 


001204 
000000 
001052 
000000 
001046 
000000 
000000 
000001 
001040 


001203 


000122 
001777 
776000 
000000 
001203 
001203 
000020 
500006 
000001 
000020 
000000 
757500 
001115 


000122 
001020 


6240 00 
1050 14 
6000 00 
2240 14 
7100 00 
2200 15 
7400 14 
6240 15 
7100 O00 


001056 — 


2240 00 
001057 


7550 56 
0350 07 


3750 O07. 


6250 05 
0650 00 
7450 00 
0540 OO 
0010 O00 
3360 07 
0560 00 
1050 03 
6010 00 
7000 OO 
001074 


2350 54 
7100 O00 
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13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
$3250 
13260 
13270 
13280 
13290 
13300 


13310 
13320 
13330 
13340 
13350 
13360 
13570 
13380 
13390 
13400 
13410 
13420 
13430 


13440 


GETJ 


GETM 


ROUTINES **@STORAGE MANAGEMENT AND SUPPORTING MACROS CO3/24/74) nce ui ea 


EJECT 


Sous oe oe ae ee re 


EAX 
CMPX 
TZE 
LDX 
TRA 
LDX 
STX 
E AX 
TRA 


BLOCK CAN'T BE ALLOCATED 


NULL 
LDX 
SAVE 


IFE 


STA 
ADLA 
ANA 
EAX 
ADX 
STX 
AOS 
MME 
LCQ 
ASQ 
CMPX 
TNZ 
TSX 
POP 
IFE 
LDA 
TRA 


 X4S4eFPTR 


X520X4 
x+5 


X4000X4 


ke 3 
X0-04X5 
X0000X4 


X4e"LINK 2X5. 


GET X 


—X4,MEMSIZ 


A 


"A',**,2 


S$PDL,ID 
1024=1,D0L 


“1024-0L 


X5e0eAL 
XSeMEMSIZ 
XS*MEMSIZ 
SPIC 
MSMEM 
1/0L 

SPIC 
X540-DU 
BSERROR 
T»REL1 

A 


*At,& 8 A2 


SPOL-DI 
GETO 


POINT TO FIRST BLOCK... 


CHECK FOR THIS LINK 


LOOP BACK 
GET NEXT LINK 


SAVE TT. 


ee eee Spsipatua sia alclaclan till Andreea d tetanic! a 
EXIT 


ee eee 


SAVE LENGTH TO ALLOCATE 


oF NO REGISTERS SPECLELE Do SAV GU eet eee 


SAVE REG A 

ROUND UP 

AND TRUNCATE ore iiewiiales y 
GET EXTRA MEMORY NEEDED 
ADD IN CURRENT SIZE 


SAVE NEW MEMORY SIZE | 


NO SPECIALS NOw 

GET THE MEMORY 

GET A MINUS ONE... .. 
NOW LET THE SPECIALS IN 
CHECK FOR OK REQUEST 


WE BLEW IT 


RELEASE IT 
RESTORE ALLOCATION LENGTH 


LOAD A REGISTER 
CONTINUE GET 


eee INN TI cg leptin tal ne 8 pate cp ahate h geen ees tad, alte Saka hss eR Ge pict adel hi, 


IF NO REGISTER SPECIFIED, LOAD T FROM TOP OF PDE Oo. 


@ PAcKoPY: 03/17/82 


13450 

EE oexpaniconeen . 13460 
ire 13470 
eo. 13480 


EJECT 
eee ET rs 


Someta & 13490 

e, 13500 

a 13510 
13520 er 
13530 EL MACRO 
13540 TSX 


CALLED VIA. TSX? REL... 


WITH BLOCK TO RELEASE IN X4 


D+ + © & F HF F 


TsSREL 
13550 ENDM ee: 4 See 


001076 000002710004 
0017100 


001100 


13570 
13580 RELREG BSS 8 
13590 * 

001110 


eee ; Bree gman enteen tenes a rete ree om a Ee aces, ge ote 


: - ROUTINES ©*STORAGE. MANAGEMENT .AND..SUPPORT.ING. MACROS... CO3S 2427.69 nn cc eemnnnemnmmantii tas pussies auninnanraaeaniniemmin womens en 


EIGHT | Sas csaeaaeet a Sogn onde 9 ce ie ech ag testa lc can gt dc umpc Rca ile Rae ache leaned ad 


So ATA CUO Lame 
sbi SG Be GANIC 
ae eee ei ut o ui Y s S60 a 4 s fee TTS, aS pegs a8 4 oe B is 5 
ty a he as be fice o a 9 Set an BH sat 3 : oe a - 2 1s : e 
; i cS a Boe Sy. Be ae a 
i ; 5 : 3 : 


ars ae ees a ae fo ¢ 


Ses = 2 


001110 


001111 


001112 


001113 
001114 


001115 


001116 


001117 


001120 


001121. 


001122 
001123 


_ 001124 


7777.07 
000000 
000000 
777777 
000001 


000122 
001100 
001204 
001206 


000000 
001135 
000000 
001127 


6240 
2350 
6270 
3750 
0750 


14 
14 
01 
07 
07 


001115 
001115 


7400 
7530 
6250 
4500 


56 
00 
00 
00 


001121 


2250 
6000 
2360 
7450 


15 


13600 REL NULL. 


e 

e. 

eo - 13560 * 
e 

e 


13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 


13690 
13700 
13710 
13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 


REL1 


REL2 


EAX 
LDA 
EAX. 
ANA 
ADA 


/ NULL 


SAVE 
TRE 
STX 
SREG 


EAXS. 


STZ 


TRY TO COMBINE THIS. BLOCK WITH. ONE LOWER. TN. (OR Enna tsnmiaitasitnnin wn tanec tciacnsnontimans a nam on 8 6 Os 


NULL 


_-DdDX. 


TZE 
LDQ 


sR Sing bee 


XGPLINKSX4 


0X4 


X@?sO2AU 


BSMASKHsDL 
12DL 


Rea come ee 


TeSPOLA-ID 
RELREG 


a 2 oat Werte eno ee 


COMBF 


X55 e7O0eXS 


REL3 
0,5 


PICK UP USER LINK» LENGTH 


PH <a cf O'S 6: Oa eC en ae nor eR rer tots -cetrvcee ee meee ere ee 


GET LENGTH OF USER BLOCK 
ADD ONE FOR LINK WORD 


<A F NO REGISTERS SPEC TELE De SAV Ee) cece et et ene tea eae 


SAVE T 
PRESERVE ALL BUT ARX4 
PICK UP. DUMMY FIRST LINK. 


WE HAVE NOT COMBINED THIS BLOCK YET 


LINK. TO NEXT. BLOCK. ON LIST... ipl Me 0th hes oct ae case hah hk ae ant tera ce aed Sh 
NO MORE = CAN'T COMBINE BACKWARD 


GET LINKs LENGTH OF BLOCK ON LIST 
kee 


001125 O00G22 7360 00 13800 QLs 18 *FIND FIRST WORD NOT IN BLOCK 
001126 001127 0560 00 13810 ASQ + lal 
001127, 000000 1040 03 13820 CMPX. _X4e*e,DU.. IS THAT THE FIRST. WORD OF OOUR BLOCK? a 
001130 001121 6010 00 13830 TNZ REL2 IF NOT,» LOOP TO NEXT BLOCK ON LIST 
13840 
13850 * WE WILL COMBINE BAC WAR DS ile el ial - 
. 13860 
001131 000000 0750 15 13870 ADA 0-Xx5 GET LENGTH OF COMBINED BLOCK 
001132 777777 3750 07 13880 ANA BSMASKHsDL 0 ONLY. ied cen ianhs arte Stace ta 
001133 000000 6240 15 13890 E AX X400X5 NEW BLOCK STARTS BEHIND US. 
‘ 001134 001206 5540 00 13900 STC1 COMBF FLAG THE FACT THAT WE HAVE COMBINED 
13910 Be fiPals pena faa aie eet De ees 
13920 * NOW TRY TO COMBINE THIS BLOCK WITH ONE HIGHER IN CORE 
13930 


an . ; 


.s ae = ee <a 5 ea ot en Mes 2 ig _ SANE, Crit i s 
Bea ea eer pay eet re 
waGe tea dissed arb lay Ali. als Ee Se 
oF ee : r ” z we : re ‘s & a ped Fs : ; eS, Se ay : : . : é v8 = ey & es 2 = Ed Pe) 3 > . : 4 
3 np ow a a a u = nS ah a o -_ : : e ¥ : 5 : a ‘ : “ ng - - 3 2 
: : z i : ; z : 7 : : t 


@ PrcKory 


_ 001135 


001136 
001137 


001140 
007141 
001142 
001143 


001144 
001145 
007146 


001147 


001150 
001151 
001152 
001153 


001154 
001155 
001156 
001157 
001160 
001161 


001162 


001163 


001164 


001165 - 


001166 
001167 


001170 
001171 


001172 


001173 


001174 
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001136 
000000 
001204 


000000 
001164 
000000 
001140 


001206 
001173 
000000 
001204 


000000 
001154 
000000 
001150 


000000 
000000 
000000 
001162 
000000 
000000 


001100 


000122 


001165 
000000 
001170 
000000 


000000 
777777 
001206 


001174 
000000 


001135 
7440 00 
6210 05 
6250 00 


001140 
1010 15 
6000 00 
2250 15 
6010 O00 


2340 00 
6010 00 
2210 03 


6250 00. 


7100 O00 


001154 
7550 14 
7440 15 
1050 15 
6010 00 
2240 03 
7440 15 

001162 
0730 00 

001163 


7100 55 


001164 
7440 00 
1050 03 
6000 00 
7440 15 

001170 
0750 11 
3750 07 
5540 00 


001173 
7440 OO 
(3540-07 
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13940 
13950 
13960 
13970 
13980 
13990 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 
14240 
14250 
14260 
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14300 
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14420 
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REL10 


REL6 
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CMP X 
TZE 
LDX . 
TNZ 


SZN 
TNZ 
LDX 
EAX 
NULL 
CMP X 
TZE 
Lox 
TRA 


NULL 
STA 
STX 
CMP X 
TNZ 
LDX 
ST X 
NULL 
LREG 
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IFE 
TRA 
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NULL 
STX 
CMP X 
TZE 
STX 
NULL 
ADA 
ANA 
STC1 
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ST X 
STCA 


X4okt1 
X1 oe eee AL 


XS5SeFPTR 


ee are 


RELS5 


X5e0-X5 


REL4 


NO CAN COMBINE 


COMBF 
REL6 


X1/ZERO-DU 
Se ola 6. Sara eaene 


X100X5 


REL occ. 


X50 0X5 
REL? 


2X4 
X400X5 
X500X5 
RELY 


X4-ZERO/DU 


X400X5 


RELREG 


a a 2 


SPDL/-DIC 


COMBINE FORWARDS 


X4okt4 
XS ake DU. 


REL10 
X4200X5 


a ade 
#1 /DL 
COMBF — 


X4eut] 
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Peers cy Ee 
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RESTORE DUMMY FIRST LINK 


Pe eae 17 a lac arta cal 
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wml AD NER BLOCK ON CE i Be Dees ican tara tis ileal cada laacal 


LOOP IF ONE EXISTS 
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DID WE COALESCE? 
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pL A SMR Rapes nk ing 0), er ea ce ean a ee eo ee nee a LORE ete ee Ae ae 


IS THIS THE LAST ENTRY? 


OS ee a 
CHASE YOUR TAIL 


ite en ee 


STA OUR SIZE 


STICK OURSELF IN THE QUEVE*S ASS END 


OUR WE POINTING AT OURSELF? 
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TRANSFER VIA. PDL. 
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DON’T CAUSE INFINITE LOOPING 


CHANGE PREV. LINK TO POINT TO US 


ee oe a 
AND SAVE ITS NEW LENGTH 
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001176 
001177 


001200 
001201 


001202 


001203 
00171204 
0017205 


wl at he & oe) BS 
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001100 
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7440 15 
001202 


7100 55 
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000000 
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14440 
14450 
14460 
14470 


14480 
14490 


14500 
14510 
14520 
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14540 
14550 
14560 
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x 
MEMSIZ 
FPTR 
ATEMP 
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EAX 
SZN 
LREG 
RETURN 
IFE 
TNZ 
STX 
RETURN 
IFE 
TRA 


STORAGE 


ZERO 
ZERO 
ZERO 
BSS 


X4e0-X7 


COMBF 


RELREG 
TNZ 


"TNZ 8 et hae. 
SPDL»/DIC 


X470/X5 


pe ee a 


SPDLsDIC 


INIT 


a oa AGE ea Oe me eetat ‘ 


RETURN OLD LINK TO USER 


WS.THE_BLOCK..ALREADY. COMBINED Cl INKED) 2 te pene 


RESTORE REGISTERS 
JUST RETURN IF SO 


_IF NO. TRANSFER SPECIFIED, DO A TRA THRU. THE POL 0 


ELSE DO APPROPRIATE TRANSFER AS USER REQUESTS 
IF NOT» TACK ON END OF LIST 


BEOe 1) Nod 9 LAO 0 6 | SNC Ee OPA aT Ne ON Oe tay rae ere Ve rece Tee Pees Beene Sine NTeny ener nar 
IF NO TRANSFER SPECIFIEDs DO A TRA THRU THE PDL 


TRANSFER VIA PDL 


CURRENT MEMORY SIZE. 


POINT TO FIRST FREE BLOCK 
TEMPROARY 
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14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 

14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 
14820 
14830 
14840 
1% 850 
14860 
14870 
14880 
14890 
14900 
14910 
14920 
14930 
14940 
14950 
14960 
14970 
14980 
14990 
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* 

* ENQ MACRO 

* 

x ENQ TAKES THE THE NAME OF A QUEUE TO QUEUE THE... .... 

* BLOCK POINTED TO BY X4 ON. 

k 

ENQ MACRO QUEUENAME | = 


EAX QTAIL, #1 POINT TO QUEUE 
TSX T/SENQ QUEUE IT 
ENDM ENQ. 


DEQ 


DEQ@ TAKES THE NAME OF A QUEUE AND PRODUCES THE 
FIRST TASK ON THE QUEUE WITH X4& POINTING TO IT. 


oO + & ee FF 


EQ MACRO QUEUENAME 
EAX QTAIL>#1 POINT TO QUEUE 
TSX 75 1) 2: Eee 0 a ie ee ree 
ENDM DEQ 


* QUEUE == CREATES A QUEUE STRUCTURE _ 
QUEUE MACRO 


ZERO ee ai. ss she POINTS TO THE LAST ENTRY 
ENDM QUEUE 


* THE BLOCKS TO BE QUEUED ARE OF THE FOLLOWING FORMAT, 
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KR KR KKK KKK KK KKK KKK KKK KK KEKKKEKKK KK KEK KKKEKEKKEKKKKEKEKEKKKKKKKKKKKKRKKK KKK 
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15000 EJECT 
15010 
15020 
15030 
15040 
15050 
15060 
15070 
15080 
15090 
15100 — 
15110 INHIB ON 
001207 15120 ENQ NULL SPPML | 
001207 O00000 2252 03 15130 LDX X5/0/DU CSOCIETY. FOR THE PREVENTION OF PROPAGATION. OF.MEANINGLESS LINKS). 
001210 000000 7452 14 15140 STX X5e0/QENTRY WIPE OUT QUESTIONABLE LINK 
001211 O00000 7252 11 4215150 LXL XS/O/QTAIL GET LAST THING ON QUEUE NOW 
001212 O00000 7442 15 15160 STX QENTRY206X5. SAVE NEW LAST ITEM ON QUEUE i ccm anes nama 
001213 000000 4442 11 4215170 SXL QENTRY-O-QTAIL SET POINTER TO END OF QUEUE 
001214 000000 7102 10 15180 TRA OT RETURN 
15190 
15200 
15210 
15220 
15230 
15240 
15250. 
15260 
15270 
15280 
15290 
001215 15300 EQ NULL 
00171215 O00000 2242 11 15310 LDX 


ENQ 


wad 
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alll 
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ENTER WITHs: 
CC(X1) = POINTS. TO. HEAD. OF QUEUE . — SF Ni Sct Seat sg ci aa ea Palit leech Nec 
C(X4) = POINTS TO TOP OF QUEUE ELEMENT 
DESTROYS REGISTER 5 


+ + & + FF FH HF HF HF F 


DEQ 
THIS ROUTINE DETACHES THE QUEUE ELEMENT FROM THE BASE lcs nie wen cali 


ENTER WITH? 

CCK 12 = POEUN S 70 (QUEUE BA Se xn. cui eersponibe mieamoaren amu 
RETURNS WITH: 

C(X4) = POINTS TO TOP OF QUEUE ELEMENT (=0 IF QUEUE EMPTY) 
DESTROYS REGISTERS 44 ..5. 
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GENTRY2sOUVOTAIL..2.GET HE FIRS T...S LEMONT ON eng crc ep cicectabeeta ncramdncesrtadnond oecenmes much itarmitaee edo 


001216 
001217 


001220 


001221 
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000000 
oo0000 


001223 
000000 


6002 
2252 
7452 


6012 
4412 


15320 
15330 
15340 
15350 
15360 
15370 


TZE O,T 
LDX XS /O0/QENTRY 
STX | X5/0-QTAIL _. 


TNZ DEQDUN 


RETURN IF EMPTY QUEUE 
GET NEXT ITEM 


Be ad ig! (Seer eee MURR wD ee RPI Ole TI ee RE OR: RE MM eee ae re err Te cme Seance sen ae ae 


NON@*EMPTY ROUTE 


001222 SXL QTAILs/QTAIL MAKE EMPTY QUEUE POINT TO ITSELF AS. TAD ce mmnenanenn ences ee wane 
15380 * | 
001223 15390 DEQDUN NULL | \ 
_ 001223 000000 6242 14 15400 EAX .  QENTRY-Os,QENTRY.. SET ZERO INDICATOR OFF eel lien ermeennecaeinninannie ae 
001224 9000000 7102 10 15410 TRA O,T RETURN 
15420 INHIB . OFF 
15430 * 
15440 * 
15450 
; . . 001225 15460 MTASK QUEUE MTASK 
001225 000000 001225 | ZERO ** »MTASK 
001226 15470 DEVQ QUEUE DEVQ 
001226 000000 001226 | ZERO  **/DEVQ 
001227 15480 LTASK QUEUE LTASK 
001227 000000 001227 ZERO *#* 7 L TASK 


MASTER TASK QUEUE 


ASUS TE WET NG DG OS or acc cal te ticle alate eaarainlee aided 
POINTS TO THE LAST ENTRY 
LIST OF DEVICES 
POINTS 0 OT GS FE a ota ae er ne ect 
LIMBO TASK BLOCKS 
POINTS TO THE LAST ENTRY 


“ se CY Trees fone tive pRB A 
 Mdkise GR LHE Ces ail. SDSS eee 
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15490 
15500 
15510 
15520 
15530 
15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
15630 
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15650 
15660 
15670 
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15690 
15700 
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15760 
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TTLS ROUTINES **"SPECIAL INTERRUPT HANDLER (03/24/74) 


ere eae Dear ae con a ores ee 


ALL INTERRUPTS WILL BE IGNORED UNLESS OTHERWISE 

SPECIFIED. THE CURRENT SPECIAL WILL BE IN. SPCURAND..THE ROUTINE. MUSTO |. 
TO SPNXT. IF THE QUEUEING OPTION IS USED A THREE WORD TASK TO SERVICE 

THE SPECIAL WILL BE GENERATED AND QUEUED ON SMTASK,. 

SPECIAL INTERRUPT TYPE NUMBER 

SPECIAL INTERRUPT HANDLING ROUTINE 

Q IF THE SPECIAL IS TO BE QUEUEDs OTHERWISE PROCESS IMMEDIATELY | 


Rs 
™m 
“oun ou 


MACRO SPL=NUMBERsRTN@ADDRESS 4 QUEUE =FLAG 
COND OF Fre/ORGsUSE 

USE TEMP 

SET * 

ORG SPTBL+#1 = ORG TO TABLE 
INE 985% o* Oh 51 

ZERO #20 

BPE "H3*s'Q's1 

ZERO O-#2 

ORG PORG1 

USE PREVIOUS ~ 
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ENDM SPL 
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001231 
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001233 
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001235 
001236 
001237 


001240 


001241 
001242 


(001243 


001244 
001245 


001246 


001247 
0017250 
007251 
001252 
001253 
001254 


001255 
001256 
001257 


001260 


001261 


001262 


001263 
001264 


_ 001265, 


001266 
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001270 
001300 
001301 


001301 
00000 1 
001260 
001301 
001304 


000020 
757500 
001356 
001233 
777777 
000000 


000010 
001010 
001304 
000001 
000002 
001356 
000004 


001225 
001207 
001233 


001300 
000001 
000020 
001277 
00171270 
001277 


001230 
7532 00 
2352 00 
7552 00 

001233 
2352 00 
1152 00 


2352 00 
7552 00 
0342 00 
7552 00 
0732 00 
6302 00 


000002710004 


001270 
001270 
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15770 
15780 
15790 
15800 


45810 


15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 


15970 
15980 
15990 
16000 
16010 
16020 


16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 


16180 
16190 
16200 


SPEC 


SPNXT 


SMAX 


SPDON 


EJECT 
INHIB. 
NULL 
SREG 
LDA 
STA 
NULL 
LDA. 
CMPA 
TZE 
LDAQ 
STAQ 
EQU 


~CMPA 


TRC 
LDA 
TZE 
CANA 
TNZ 
GETD 
LDA 
TSX 
LDAQ 
STA 
STQ 
LDA 
STA 
ENQ 
EAX | 
TSX 
TRA 
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NULL. 


LDA 
STA 
LDAC. 
STA 
LREG 


RET... 
INHIB 


ON. 


SPREG 


~ SPT. ac. 


SPTAL 


JSPTAL. 


FVTAL 
SP DON 


SPTAL AD... ... 


SPCUR 

16 
SMAXs2DU 
BSERROR 
SPTBL AU 


_ SPNXT 


BSMASKH,DU 
O-AU 


TASKEN 


TASKLNeDL 
Te $GET 
SPCUR 


PSSTW1/QENTRY | 


PESTW2,-QENTRY 
SPTBL/AU. 

PSEXEC/QENTRY 
SMTASK 

QTAIL¢ SMTASK 

Ts SENG 

SPNXT 


. — 


FVTAL 
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SPREG+t+SVTR 


SPREG 


SPREG#SVTR Uw. 
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AND WORD PSSTW2 
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SAVE IT 
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WORKING VERSION 
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001360 
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001374 
001375 
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000015 
002347 
000015 
002350 
000015 
000015 
000015 
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00007175 
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16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
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16390 
16400 
16410 
16420 
16430 
16440 
16450 


16460 


16470 
16480 
16490 
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ZERO 
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ZERO 
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ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
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ZERO 
ZERO 
ZERO 
ZERO 
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ABORTV.1 


SPECIAL INTERRUPT JUMP 


ABORTV>1 


TYTERM 


_ABORTVeT OO Wo... 


BREAK 
ABORTV a1 


ABORTV~a1 
kk 


ABORTVe1 oo. 


x* 


ABORTVs1 
ABORTVa1 
ABORTV=.1 
ABORTV~1 


ABORTVe1 


ABORTV~»1 
ABORTVe1 


ABORTVe1 


TYPE 0 


TYPE 


TYPE 
TYPE 


0 
1 
TYPE 2. 
3 
4 
5 


TYPE 6 
IGNORE 


TYPE & 


IGNORE 


TYPE 10 
TYPE 11 
TYPE 12 
TYPE 13 


TABLE 
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TYPE 7 
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001414 


001415 
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001417 
001402 


001270 


001417 
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777777 


777773 
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16510 
16520 
16530 
16540 
16550 
16560 
16570 
16580 
16590 


16600 | 


16610 
16620 
16630 
16640 
16650 
16660 


~ 16670 


16680 


16690 
16700 
16710 
16720 
16730 
16740 
16750 
16760 
16770 
16780 
16790 


TRLINK 


XEDBRK 


x 


* 
* 


TBLOCK 


TTLS 


INHIB 
EVEN 
NULL 
S14. 
TRA 
NULL 
SREG. 


LDX 
LDX 
L DX 
STX 


EAX 


ENQ 
EAX. 
TSX 


LDA 
EAA 
STA 


LREG 


RET 
INHIB 


ZERO 


TRAP HANDLING ROUTINE 


ENTERED VIA XED TRLINK FROM TRAP BLOCK 


ON 


BOC Re ce. ccs 


XE DBRK 


TREG...... 


XOsTBLOCK 
X7/CSINFOT | 
X7eDSEXEC + X7 
X7/CSEXECSAT 


QENTRY/CSLINK»T 


MT ASK 


QTALIL/MTASK 


Ts SENQ 


TBLOCK 
C$RET AU 


TBLOCK 


TREG 


TBLOCKaI 


OFF . 
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EVEN OUT THE CODE! 
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015012164150 
145040160141 
143153040143 


157160171056 


040040164150 
145040151156 
1607.65164040 
163150157165 
154144040142 
145040141040 
163151155160 
154145040154 
151163164040 
157146040156 
1651755142145 


1441745164145 
162155151156 
145040164150 
145000000000 
015012165163 
145040157146 
040145141143 
150040144145 


22910 


22930 


TEXT *‘aQ"°THE PACK COPY. 


TEXT "Q@° USE OF EACH DEVICE. ODD ORDINAL POSITIONS WILL BE USED FoR! 


OPTMS 00 SEQUENCE OF DEVICES PROMPT oo. epoca 


THE INPUT SHOULD BE A SIMPLE LIST OF NUMBERS,’ 


: 002406 162163054000 ae Fee AE etch he es At acetal lc cme Oa ce SP valk ace teasaea 
2 002407 015012163145 22920 TEXT "A°SEPARATED BY COMMAS. THE ORDER OF INPUT WILL DETERMINE THE® 

: 002410 160141162141 . 

i 002411, 164445144040 

‘i 002412 142171040143 

“ 002413 157155155141 

“002414 163056040040 - 

: 002415 164150145040 

ee 002416 157162144145 

- 002420 040151156160 , 
ae 002421 165164040167 

own 02422 151154154040 : : ; 


es Pet = nade ees Peed ie — 1k —- = ee re == am « -3 7 a = a ES ed 4 pains = = = id = a cae 
a Ee SgeB ios Roe Leadber ge ky Sa : 
: ’ : paste : : i ’ x i ‘ * 


PACKOPY 


002433 


002434 


002435 
002436 


(002437 


002440 
002441 
002442 
002443 
002444 
002445 
002446 
002447 
002450 
002451 
002452 
002453 
002454 
002455 
002456 
002457 
002460 
002461 
002462 
002463 
002464 
002465 
002466 


002467 


002470 
002471 
002472 
002473 
002474 
002475 
002476 
002477 


002500 


002501 
002502 


002503 


002504 
002505 


002506 


002507 
002510 
002511 
002512 
002513 


002514 


002515 
002516 
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166151143145 
056040040157 
144144040157 
162144151156 
141154040160 
157163151164 
151157156163 
040167151154 
154040142145 
040165163145 
144040146157 
162000000000 
015012160141 
143153163040 
164157040142 
145040143157 
160151145144 
073040145166 
145156040157 
162144151156 
141154040160 
157163151164 
157157156163 
040167151154 
154040142145 
040165163145 
144040146157 
162000000000 
015012164150 
145040144165 
160154151143 
141164145163 
040164157040 
142745040143 
1621745141164 
145144056000 
015012012040 
040145170141 
155160154145 
072000000000 
015012012040 
040040040040 
061054062054 
063054064054 
065054066000 
015012040040 


040162145163 


165154164072 
040144145166 
151143145163 
040061054063 
054046065040 
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22940 


22950 


22960 


22970 


22980 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


MESSAGES TO THE USER UL. 


"a" PACKS TO BE COPIED, EVEN ORDINAL POSITIONS WILL 


"O° THE DUPLICATES TO BE CREATED." . 


9°" EXAMPLE: '° 
*a7™ 102037475268 


‘a” RESULT: DEVICES 143-85 WOULD BE USED FOR ORIGINAL PACKS’ 


BE USED FOR’ 


: 


eee 
& 
Me aa ‘ og o : iz 7 a a mf & be x a soe - + . ae . oe ‘ ee : Re . ve - 3 = a 
; j : i : : : : : 5 ; 3 


 PACKOPY 


002517 


002520 


002521 
002522 
002523 
002524 
002525 
002526 
002527 
002530 
002531 
002532 
002533 
002534 
002535 


002536 


002537 
002540 
002541 
002542 
002543 
002544 
002545 
002546 
002547 
002550 
002551 
002552 
002553 
002554 
002555 
002556 
002557 
002560 


002561 


002562 
002563 


002564. 


002565 
002566 


902567 


002570 
002571 


002572 


002573 
002574 
002575 
002576 
002577 


002600 


002601 


002602 
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167157165154 
144040142145 
040165163145 
144040146157 
162040157162 
151147151156 
141154040160 
141143153163 
015012040040 
040040040040 
040040040040 
040144145166 
151143145163 
040062054064 
054046066040 
167157165154 


144040142145 


040165163145 
144040146157 
162040164150 
145040143157 
160171040160 
141143153163 
015012040040 
040040040040 
040040040040 
040164150145 
040141143164 
165141154040 
1621745141144 
040167162151 
164145060155 
141760160151 
156147040167 
157165154144 
040142145040 
141163040146 
157154154157 
167163072000 
015012040040 
040040040040 
040040040040 
040040040040 
144141164141 
040162145141 
144040146162 
157155040144 
145166151143 
145040061040 
151163040167 
162151164164 
145156040164 
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ME SR GE Soc 0 2 RS RR a 8 i es eet Ete me, en artes lt Mace ta et tes tend alates ah ln amr iaeok tet 


22990 TEXT tae 


23000 TEXT a 


23010 TEXT ‘a* 


Se orm a 


DEVICES 24/86 WOULD BE USED FOR THE COPY PACKS! 


ae CUAL Rah Gece MAPA WoulD Gee once 


DATA READ FROM DEVICE 1 IS WRITTEN TO DEVICE 2" 


: ‘ oY Eas” as : . : : . : 


a tbderes SEM GAMES Te, OE EERE TS Soe 


tt 


£ in See Me Se ae ne ba af e re cm i 


“PACKOPY 


002603 


002604 


002605 
002606 
002607 
002610 
002611 
002612 
002613 
002614 


002615 _ 


002616 
002617 
002620 
002621 
002622 


_ 002623 


002624 
002625 


002626 


002627 
002630 


00263) 


002632 
002633 


002634 


002635 
002636 
002637 
002640 
002641 


002642 


002643 
002644 


002645 


002646 
002647 


002650 


002651 


002652 


002653 
002654 


902655 


002656 
002657 


002660. 


002661 
002662 
002665 


(002664 


002665 
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157040144145 
166151143145 
040062000000 
015012040040 


040040040040 


040040040040 
040040040040 
144141164141 
040762145141 
144040146162 
157155040144 
145166151143 
145040063040 
151163040167 
162151164164 
145156040164 


157040144145 


166151143145 
040064000000 
015012040040 
040040040040 
040040040040 
040040040040 
1447461164141 
040162145141 
144040146162 
1571755040144 
145166151143 
145040065040 
151163040167 
1621751164164 
145156040164 
157040144145 
1661451143145 
040066056000 
015012077077 
000000000276 


000000002651 
015012151156 


143157155160 


154145164145 
040143157160 
171040157156 
040144145166 
151143145040 
040040040040 
163164141164 
165163075040 
040040040040 
040040040040 
040040040040 
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23020 


23030 


23040 
23050 
23060 
23070 
23080 


23090 
23100 


23110 


OPTMSL 
* 


PROBMP 
PROBM 


PRBDEV 


PRSTAT 


ROR RS HBC) Se ine A Jee Es « |e ame OS 1 =a ; Se ee ee eC ene Ao ESE eT nae een eR RON a ee ee Deen aan Ce UOT Pen mT NNN ars Penman e ner 


TEXT 


TEXT 


TEXT 
DATA 


DATA 


TEXT 


TEXT 
TEXT 


TEXT 


‘a7 DATA READ FROM DEVICE 3 IS WRITTEN TO DEVICE 4° 


tar 22! 


**OPTMS 


ae 
‘a”° INCOMPLETE COPY ON DEVICE 


a hee 


002666 


002667. 


002670 
002671 
00267 2 
002673 
002674 


002675 
002676 


902677. 


002700 
002701 


002702 


002703 
002704 
002705 
002706 
002707 
902710 


002711 
002712 
002713 
002714 
002715 
002716 
002717 


/002720 . 


002721 
002722 


..002723 


002724 
002725 
002726 


002727 


002730 


002731. 


002732 
002733 
902734 


002735 
002736 
00273? 
002740 
002741 
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073040142154 


157143153040 


156165155142 
145162040040 
040040040040 
040040000000 
000000000023 


000000002676 
015012165156 


141142154145 


040164157040 
141154154157 
143141164145 
040144145163 
151162145144 
040144145166 
151143145040 
040040040040 
000000000012 


000000002712 
015012012150 
157167040155 
141156171040 
157162151147 
1517456141154 
040160141143 
153163040164 
157040141162 
145040164157 


040142145040 


143157160151 
145144077000 
000000000014 


900000002730 


015012012143 
157756164151 
156165145056 
056000000000 
000000000004 


000000002736 
015012012166 
145162151146 
171040160141 
143153163040 
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251.20 


23130 


23140 
23150 
23160 
23170 


23180 
23190 
23200 
23210 
23220 


23230 
23240 
23250 
23260 
23270 
23280 


23290 
23300 
23310 
23320 
23330 
23340 


PRBLOK | 


PROBML 
* 
UNABLE 
UNABL 


UNADEV 
UNABLL 
* 
DEVMSP 
DEVMS 


DEVMSL | 


x 

* 
CONMSP 
CONMS 


CONMSL 


TEXT 


BMT yest tcc taesk ar ces hansen nas a ato eel APs AE Se Raa as Di eet A ag il a a ht in du ce ene ee Dt 


DATA 


DATA. 


TEXT 


TEXT 


DATA. 


DATA 


TERN, 2. coy 


DATA... 


ee 


TEXT 


DATA 


‘> BLOCK NUMBER 


*=PROBM 


ee ee 


‘a*UNABLE TO ALLOCATE DESIRED DEVICE ' 


DEVMS 


BE INFORMATIVE 


QUERY OF TOTAL NUMBER OF PACKS . 
29 HOW MANY ORTGINAL. PACKS TO ARE..70. BE: COP TS 0 tapi se te ae tenes 


RE dood) Eh 1. fs nee ee 


CONTINUATION PROMPT 


"a °"CONTINUE..' 


MESSAGE TO WAIT ON MOUNTS 


Poe cierd 91.0) 13 SRO ee Re Re OR 


. 1 Laie eit ca cea AS a BE oh a ceca tena 
=a° "VERIFY PACKS MOUNTED THEN TYPE 


“ASK FOR CONTINUATION DATA Bets al 


MESSAGES TO THE USER... tee tt tee Diet ale tee thst iy puri mnsngresoeernunenat 


"GO"... 


ela SE 


® e 
@ PAckory 03/17/82 10:30:32 PAGE 76 e 
gs aS Cy Si 0 AR "| oS: rc rc ae CEN EIS ee SUE Pe reer nt ra mneE Cee er : 
| @ 002742 155157165156 e 
002743) «164145144040 
@ 7 002744 164150145156 @ 
002745 040164171160 
— 002746 145040047147 
gy 002747 157047056056 & 
| | 002750 000000000012 23350 GOMSL DATA *=GOMS 
| - 23360 = ef BA pata tes ts, diet ati distieets_ sate 
\ 23370 * LINE BUFFER FOR TTY INPUT 
| @ 23380 * e 
| | 002751 000000002752 23390 LINE DATA LIN. ee - 
oe 002752 23400 LIN BSS 30 BUFFER=IN @ 
| 000174 23410 #LLEN EQU EISO** *EISO*xLINE 
| ) 003010 000000000037 23420 LLENG ~- DATA *=@LINE . 
) 23430 * ® 
Cpa 23440 * INVALIDATION MESSAGE 
Oe Piss 23450 Shik tale ease tants ene Meet eps et neia sobs seta tere ne te Hes see apse ee en ett Con Daa aad | 
io. 003011 000000003012 23460  VALMSP DATA VALMS ® 
, : 003012 007007007007 23470 VALMS OCT 007007007007 FOR WHOM THE BELL TOLLS.. . 
ui . 003013 0150712166141 23480 TEXT TEXT ‘@° VALIDATION ERROR ON DEVICE * 
“@ : 003014 154151144141 ® 
ie 003015 164151157156 
: 003016 040145162162 
“@ 003017 157162040157 @ 
E 003020 156040144145 | 
we 003021 166151143145 a2 - 
| @ 003022 040000000000 e 
; : 003023 040040040040 23490 VALDEV TEXT ' ' PROBLEM CHILD DEVICE NUMBER 
003024 000000000012 23500 VALMSL DATA *@VALMS 
io 23510 * , ® 
, 23520 * GROUP MAPPING QUERY 
| a ae 23530 * fieed — 
-@. 003025 000000003026 23540 GRPMSP DATA GRPMS : e 
| 003026 015012151156 23550 GRPMS TEXT ‘a7 INPUT THE PACK GROUP MAPPING IN THE FOLLOWING FORM..° : 
: | 003027 160165164040 7 
i @ 003030 164150145040 @ 
‘i 003031 160141143153 o = 
903032 040147162157 is 
Zz 003033 165160040155 @ 
ro 003034 141160160151 
| “903035 156147040151 ec 
eo. 003036 156040164150 e 
= 003037 145040146157 : 
“903040 154154157167 | 
eo. 003041 151156147040 @ 
: 003042 146157162155 
“003043. 056056000000 | 7 | . — ses es aies clas ont ee ees pee i hte ee | 
eo. 003044 015012040040 23560 TEXT "a7 <READ PACK GROUP ID>/<WRITE PACK GROUP Ip>' e 
: 003045 040040074162 
: “903046 145141144040 n 
-@. 003047 160141143153 @ 
: 003050 040147162157 
¢ @ 


t 
ar 


Bs pa 


ui SS 


3 : : = ay or = or a as ~ ’ vs Se 2 7 , s ‘ : : . i + . = i" a ‘ ‘, : s a a 
eo NS te a = 2 2 e 2 oo aI & z 2 2 ° : x yO * i : aan = af a 7 . Btn 5 Pes Onde 
§ = f . z 4 : i + 5 i 
i : : 5 ; : i i 
‘ : 2 3 : 5 : H 7 


PACKOPY 


003051 


(003052 


003053 
003054 


003055. 


003056 
003057 
003060 
003061 
003062 
003063 
003064 
003065 
003066 
003067 
003070 


003071 


003072 
003073 
003074 
003075 
003076 
003077 
003100 
003101 


003102 


003103 
003104 


003105 


003106 
003107 
003110 


003111 


003112 


003113 
003114 


003115, 


003116 


003117. 


003120 


Q031¢1 


003122 


003123 
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165160040151 
144076054074 
167162151164 
145040160141 
143153040147 
162157165160 
040151144076 
015012012012 
146157162040 
145170141155 
160154145054 
015012012040 
040040040164 
157040143157 
155160162145 
163163040146 
162157155040 
160141143153 
040147162157 
165160040047 
164047040164 
157040160141 
143153040147 
162157165160 
040047163047 
040164171160 
145000000000 
015012040040 
040040040040 
047164054163 
047000000000 
000000000062 


000000003112 
015012143157 
160171151156 
147000000000 
000000000003 


000000003117 
056000000000 
000000000001 


000000003122 
015012000000 
000000000001 
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23570 


23580 


23590 


23600 
23610 
23620 
23630 


23640 
23650 
23660 
23670 
23680 


23690 


23700 
23710 
23720 


GRPMSL 
* 


SRTMSP 
SRTMS 


SRTMSL 
* 


PERMSP 


PERMS 


PERMSL 


* 
CRLFMP 
CRLFM 

CRLFML 


MESSAGES. TO. THE USER. www. 


TEXT 


TEXT 


TEXT 


DATA 


DATA 


TEXT. 


88: eee 


DATA 


TEXT. 


DATA 


DATA. 


TEXT 
DATA 


a7 77 FOR EXAMPLE," | 


=a"" «TO _-COMPRESS FROM PACK GROUP 'T' TO PACK GROUP 'S' TYPES 


RE GRP M Sic otie cis, Gade Sue Gomes 


SRTMS 


"a" COPYING®. | 


PEI SNS ie arent rack Sele ap Res . ee ae sees Aaa stare eet ict ete ces Net, Tei Sat Mire canon aceon 


PERMS 


peer aa 


tid Et hy ee a ee oe ee 
tase 
*eCRLEM 


Sass 1 £ x Me gs SER aes eee rte STS ar eee a ae Se 7 2 iS aw ; E = Sf 3 
Fo ee . cS Bs i o un un OT & te Sg < i = i ss & B os a ae is a 2 Ar e oF at 3 : : ; ; fee ia : ad oe = L es > : * 
é = — ey es ae n 2 me ae Es ef Ey a = ee 7s ae a é L ee Ee sy ‘ a 5 hs : " uu De a] . i ~ fas : z E ws » 5 5 
iH . i : 2 : : : : z : : ‘ i : i 


“PACKOPY 


— 003124 


003125 
003126 
003127 
003130 
003131 


003132 
003133 
003134 
003135 
003136 
003137 
003140 
003141 
003142 


003144 
003145 


003147 
003150 
003151 
003152 
003153 
003154 
003155 
003156 


003160 
003161 
903162 
003163 
003164 


003166 
003167 
003170 
003171 


003143. 


003146 — 


003757. 


003165 
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147157000000 


000000000000 
000000000000 
000000000000 
000000000000 
000000000000 


003132. 


777777777777 
777777777777 
777777777777 
777777777777 
777777777777 
777777777777 
777777777777 
777777777777 
000777777777 


aaacaasaana 
T7777TPTTT7I7T 
TU?7TTCC CTI? 
T7777 CCT TIE 
77777 CC TTT? 
T77ACT CTT TE 


magaqaaaaaaai 


77777777777 
(77777777777 
aariaaaaaaai 
CU7AIC HTT IT? 
TUPC7ITI PTT? 


aaa aaaaaa ai 


777777 TT7 TT? 
C7T7C7ICT TT CE 


C7TCACEPCT ECE 


777777777777 
77777777 7TTT 
777777777777 
777777777777 
777777777777 
777277777777 
777777777777 
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23730 
23740 
23750 
23760 
23770 
23780 
23790 
23800 
23810 
23820 
23830 
23840 
23850 
23860 
23870 
23880 
23890 
23900 
23910 


23920 
23930 
23940 


23950 


+ &€ G+ & F 
© 


BCOUNT 
COPCNT 
NCOUNT 
TCOUNT 


CCOUNT 
* 


x 
* 


BLKTBL 


Ss CON WE SEO O00 ee i arse peer rer Oa aa he tle en ed ccna aetna meatal cl 


TTLS 


TEXT 


DEC 
DEC 
DEC 
DEC 
DEC 


NULL 


DUP 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
OCT 
DUP 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 


EIS CONVERSION TABLES AND TALLY CELLS 


a 


SO ie Bok ase ce eet seta 


TALLY COUNTERS FOR <TCT> SCANS 


CO00O 


 PRECE 


NUMBE 


LENGT 


DISTA 
CHARA 


era VC dae 


R OF ORIGINAL PACKS 


H OF NUMERIC STRING | 


NCE TO TOKEN START 
CTER COUNT FOR STRING LENGTHS 


EIS CONVERSION TABLES FOR <TCT> SCANS | 


aad 


-1 


Wed 


-1 

=| 

~] 

ball 

~ 

i ee ee 
000777777777 
1223 

4 os 

= 

-4 

bell 

al 

all | 


peels 


-1 
=~ 
=) 
~4 
= 


=1 
=1 
-ij _.. 


SCAN 


STOP 


STOP. 


STOP 
STOP 


STOP 


STOP 
STOP 

STOP. 
BLANK 


sede eV actus, Sap ecac dnane Renna eaten ok 


. waa 


TABLE FOR STRIPPING LEADING BLANKS 


ON ALL BUT BLANKS 


7 es am = 0 tee ©1501 1° Seen or en oe Re oe ee el re me nee RO Re 


ON ALL BUT BLANKS 
ON ALL BUT BLANKS 


ON AGL UBUT  BUANK S 0... crs Audeuisaniissemclieesa Simic wrmavena nines 


ON ALL BUT BLANKS 

ON ALL BUT BLANKS 

ON ALL BUT BLANKS Oo 
2 NON™BLANKS 


@ PAckoPy 03/17/82 


ran 


eee es | | | pie PSC ONE RS OMT AG UE Sc BT REN PS a ie ee ea ec eat gelatine te etna 
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a 23960 * 
: 23970 ae B= as Sopdet ae acc ete aa 8 eyepatch tk es Do ee eae aan a 2 
003172 23980 NUMTBL NULL SCAN TABLE TO PROCEDE TO NUMERIC ENDING 
23990 DUP 1712 
003172 7772777777777 24000 DEC mt STOP IF NON@ NUMERIC... 
003173 777777777777 DEC -1 STOP IF NON@NUMERIC 
003174 777777777777 DEC o4 STOP IF NON@NUMERIC 
003175 777777777777 DEC. "1. STOP TF NON@=NUMERIC. 
003176 777277777777 DEC =] STOP IF NON@#NUMERIC 
003177 777777777777 DEC =| STOP IF NON@NUMERIC 
003200 7772777777777 DEC 4 | STOP IF NON@NUMERIC. | 
003201 777777777777 DEC = STOP IF NON™NUMERIC 
003202 777777777777 DEC -1 STOP IF NON*NUMERIC 
003203 777777777777 DEC = | STOP IF NON=NUMERIC. 
003204 7777,77777777 DEC -1 STOP IF NON*NUMERIC 
003205 777777777777 DEC =4 STOP IF NON@NUMERIC 
| . 24010 . DUP - 12 
003206 o00000000000 24020 : DEC ) 
003207 000000000000 DEC 0 
003210 000000 777777 24030 ZERO = p12 
| 24040 DUP 1,17 
003211 777777777777 24050 DEC -4 STOP IF NON@=NUMERIC 
003212 777777777777 DEC “1  §TOP ITF NON@NUMERIC 
003213 777777777777 DEC = STOP IF NON@NUMERIC 
003214 777277777777 DEC -1 STOP IF NON#NUMERIC 
003215 777777777777 DEC = | . STOP IF NON@*NUMERIC (2 octet tte watt cp suet we 
003216 7772777777777 DEC =| STOP IF NON#NUMERIC 
003217 777777777777 DEC = STOP IF NON@NUMERIC 
(003220 777777777777 DEC | 1 oo STOP IF NON@*NUMERIC |. 
003221 777777777777 DEC ~4 STOP IF NON=NUMERIC 
003222 777777777777 DEC = STOP IF NON@*NUMERIC 
003223 777777777777 DEC “1 | 4 0 Sitar irate R OD Pc Bet ONE NU Pa Fa li a aw al cata Nt a oh tic a Laas ca pe cnt al 
003224 7777,77777777 . DEC -1 STOP IF NON@NUMERIC 
003225 777777777777 DEC 4 — STOP IF NON@#NUMERIC | 
003226 777877777777 | DEC . =i STOP ILE. NON*@NUMERIC ecu vaet teats vate utes vv 
003227 777777777777 DEC -4 STOP IF NON@=NUMERIC 
003230 777777777777 DEC -1 STOP IF NON=NUMERIC | 
“003231 777777777777 | DE Gi cy Mew eersier heya tres nlalcsan nc hae OI bate NN ONIN ck 6 te easel es cet A me, eh al hale ciate eee alee hat Senta 
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